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Preface 


This  thesis  was  primarily  concerned  with  the  develop¬ 
ment  of  a  integrated  circuit  design  tool,  mcif plot,  on  a  CPM 
based  microcomputer.  It  provided  a  unique  opportunity  to 
learn  more  about  a  variety  of  different  fields  of  study.  In 
addition  to  the  obvious  application  to  computer  aided  de¬ 
sign,  the  project  was  my  first  exposure  to  two-dimensional 
graphics.  It  was  also  a  tremendous  learning  experience  in 
the  area  of  software  design  and  engineering. 

mcif plot  is  designed  to  implement  the  function  of  Dan 
Fitzpatrick's  VLSI  design  tool  cif plot.  In  the  program  it¬ 
self,  I  relied  heavily  on  algorithms  in  A  Guide  to  LSI 
Implementation^]  and  Pr incipa 1 s  of  Interactive  Computer 
Graphics [15] .  The  function  of  the  program  depends  on  the  use 
of  Tom  Speer's  CPM  graphics  utility  PLOT.COM. 

I  offer  special  thanks  to  Hal  Carter,  my  thesis  advi¬ 
sor,  for  suggesting  this  project  and  for  his  ideas  and 
guidance  during  its  execution.  I  would  also  like  thank  my 
wife  Julie  for  her  patience  and  encouragement  throughout  the 
project. 


Kirk  S.  Horton 
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Abstract 


mcif ploty  a  microcomputer-based  program  which  prints 

r, 

check  plots  of  integrated  circuits  on  a  dot-matrix  printer, 
was  designed,  implemented,  and  tested.  The  SADT  Design, 
Detailed  Design,  Data  Dictionary,  algorithms.  Structure 
Charts,  and  program  code  are  presented,  mcif plot  interprets 


a  geometric  description  file  written  in  Caltech  Intermediate 
Form  (Cl F)  and  produces  an  output  file  which  can  be  printed 
using  the  public  domain  program  PLOT.COM.  mcif plot  is  writ¬ 


ten  in  C  for  the  CPM  operating  system  and  closely  matches 
the  function  of  the  Unix  based  VLSI  design  tool  cif plot. 

*v 

mcifplot  interprets  all  standard  CIF  2.0  commands  with 


the  exception  of  Poly  Commands,  Delete  Definition  Commands, 
and  commands  which  define  geometric  elements  in  non-Manhat¬ 
tan  directions.  Program  execution  is  primarily  limited  by 

disk  access  delays  and  depends  greatly  on  the  format  and 
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structure  of  the  input  CIF  file. 

p,  <  '■f  *  A,  V  '  -  /  if 


Q  / .  • .  1 1  ^  t 

/  ;  •. ,  '  h  • .  s 


r\  f  '  r  ''  '  '  '  , 
J  J  / 


VI  1 


A  Microcomputer-based  Program  for  Printing 
Check  Plots  of  Integrated  Circuits  Specified 
in  Caltech  Intermediate  Form 


I .  Introduction 


Background 

When  Fairchild  introduced  the  first  Integrated  Circuit 
(IC)  in  1961,  it  contained  only  four  transistors  [  5 ] .  Each 
year  since  that  time,  the  semiconductor  industry  has  con¬ 
sistently  improved  the  quality  of  the  fabrication  tech¬ 
niques  used  in  manufacturing  IC's.  This  has  resulted  in  an 
almost  geometric  growth  in  complexity,  with  the  number  of 
devices  per  IC  almost  doubling  yearly.  Today  it  is  possi¬ 
ble  to  manufacture  IC's  which  contain  400K  or  more  devices. 
The  physical  limits  of  device  density  has  still  not  been 
reached,  and  densities  of  million's  of  devices  per  circuit 
are  predicted  for  the  near  future. 

Unfortunately,  the  engineer's  ability  to  design  com¬ 
plex  electronic  systems  has  not  kept  pace  with  the  improve¬ 
ments  in  fabrication  technology.  With  this  dramatic  in¬ 
crease  in  density  and  computational  power  has  come  an  in¬ 
creasingly  difficult  design  problem.  The  first  IC’s  were 
designed  and  laid  out  by  hand.  The  layout  was  done  on  Mylar 
sheets  which  were  used  as  patterns  to  cut  Ruby 1 ith [ 1 1 )  .  The 
layout  was  then  checked  manually  by  the  designer.  This  was 
possible  because  the  designs  were  relatively  simple  and 
they  contained  a  small  number  of  devices.  As  IC's  became 
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more  complex  it  became  increasingly  time  consuming  to  design 
and  layout  a  circuit. 

This  is  not  unexpected;  it  is  almost  impossible  for 
a  single  engineer  to  trace  and  understand  the  operation  of 
a  circuit  that  contains  hundreds  of  thousands  of  devices, 
much  less  design  and  lay  it  out  by  hand.  IC  design  tools 
began  to  appear  in  the  late  1960's  to  aid  the  engineer  in 
the  design  process.  The  first  design  tools  were  used  to 
automate  the  production  of  masks  for  fabrication.  Next  came 
tools  for  layout  digitization  and  maintenance  of  hand-drawn 
designs[16].  These  were  followed  by  tools  for  discovering 
design  rule  violations  and  simulators  used  to  verify  the 
functions  performed  by  circuits  that  had  been  laid  out. 

The  design  tools  were  created  by  IC  manufactures  prima¬ 
rily  for  in-house  IC  research  and  development.  In  the  same 
way  that  IC  manufactures  improved  their  fabrication  tech¬ 
niques,  they  also  developed  the  design  tools  required  for 
their  unique  applications  and  design  requirements.  The  oper¬ 
ation  and  function  of  the  these  tools  varied  from  company 
to  company  and  they  were  usually  proprietary. 

As  circuit  density  and  complexity  grows,  it  is  predic¬ 
ted  that  increasingly  more  powerful  design  tools  will  be 
required  to  allow  the  engineer  to  cope  with  the  magnitude  of 
the  design  problem.  The  current  design  tools  have  a  produc¬ 
tivity  of  approximately  50-100  transistors  per  day.  Ten 
years  from  now,  design  tools  will  need  to  produce  transis¬ 
tors  at  an  average  rate  of  almost  10,000  or  more  per  day  to 
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completely  utilize  predicted  circuit  densit ies [ 1 2 ]  .  The 
improvement  of  existing  tools  and  the  development  of  differ¬ 
ent  and  more  powerful  tools  will  become  an  even  greater 
priority  as  the  gap  between  the  capability  of  IC's  and  the 
engineer's  ability  to  design  these  circuits  increases  in  the 
future . 

Universities  across  the  country  are  becoming  more  in¬ 
volved  in  research  in  this  area  and  a  growing  number  of 
schools  are  incorporating  IC  design  courses  into  their  cur¬ 
riculum.  Until  recently,  research  and  training  in  IC  design 
rarely  took  place  at  universities  and  was  almost  exclusively 
confined  to  industry.  IC  design  techniques  were  developed, 
tested,  and  taught  only  in  the  manufacturer's  facility.  Two 
people  are  largely  responsible  for  the  introduction  of  this 
field  to  the  university  environment:  Carver  Mead  and  Lynn 
Conway.  In  the  early  1970's,  Carver  Mead  began  to  teach  IC 
design  at  the  California  Institute  of  Technology  in  one  of 
the  first  courses  taught  in  a  university  curriculum.  He 
worked  with  Lynn  Conway  to  develop  a  course  where  students 
not  only  studied  IC  design,  but  also  were  able  to  layout 
their  circuits  and  have  them  fabricated  for  testing. 

It  was  not  until  1978  that  Mead  and  Conway  collaborated 
to  produce  the  first  book  for  the  classroom  [13]  .  Their 
Introduction  to  VLS I  Systems  is  still  considered  the  defini¬ 
tive  work  in  the  field  and  introduces  the  theory  behind 
circuit  operation  and  fabrication  as  well  as  the  more 
practical  aspects  of  circuit  design  methodology.  It  opened 
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the  number  of  pages  is  larger  than  desired).  The  program 
then  interprets  "f i lename.cif "  and  if  there  are  no  errors, 
writes  the  output  file  to  "filename. vec"  (the  PLOT  file). 
"Fi lename.vec"  can  be  plotted  by  PLOT.COM  to  produce  the 
desired  check  plot.  If  errors  occur,  they  are  displayed  on 
the  standard  output  and  then  program  execution  is  affected 
in  one  of  three  ways:  1)  after  warnings  program  execution 
continues  as  before,  2)  after  runtime  errors  program  execu¬ 
tion  continues  with  all  other  errors  being  reported,  but  the 
output  file  is  not  written,  3)  after  fatal  errors  program 
execution  is  aborted  and  no  output  file  is  written. 

Implementation  Requirements . 

The  implementation  requirements  are  the  result  of  pro¬ 
ject  objectives  and  they  will  directly  influence  the  perfor¬ 
mance  and  functional  requirements.  These  requirements  are  as 
follows : 

1)  The  program  will  execute  on  a  CPM-based  microcompu¬ 
ter  with  a  minimum  of  64K  of  main  memory.  This  computer  will 
have  a  minimum  of  two  disk  drives  with  a  capacity  of  at 
least  1 8 0 K  each  (the  lower  limit  of  the  capacity  of  the 
average  5  1/4"  single-sided  double-density  disk). 

2)  The  program  and  required  temporary  storage  used 
during  program  execution  will  not  exceed  the  capacity  of  one 
disk  or  180K. 
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The  above  description  of  the  program  is  very  similar  to 
the  program  description  given  in  the  cif plot  manual,  mcif- 
plot  performs  five  major  actions.  First,  it  interprets  the 
command  line  and  initializes  the  runtime  environment  as 
necessary  to  execute  the  requested  options.  Next,  the  CIF 
file  is  read  and  a  Symbol  Table  is  constructed  of  all  the 
symbols.  The  Symbol  Table  is  then  traced  to  determine  the 
size  of  the  layout  and  the  scale  required  for  plotting  it. 
The  Symbol  Table  is  traced  again  to  create  the  PLOT  file  of 
elementary  plot  commands  for  plotting  by  PLOT.COM.  The  fifth 
major  action  which  takes  place  throughout  the  operation  of 
the  other  sections  is  error  checking.  The  command  line  and 
the  syntax  of  the  CIF  file  itself  is  checked  for  errors  and 
all  errors  are  displayed  on  the  standard  output. 

Operation 

A  CIF  file  is  first  created  by  any  of  a  variety  of 
methods.  These  methods  range  from  hand  layout  and  coding  to 
automatic  generation  by  other  software  tools  which  interpret 
a  functional  circuit  description  to  produce  a  CIF  file.  To 
run  the  program,  the  user  types: 

mcifplot  [options]  filename. cif  (return) 

With  no  special  options  the  program  executes  in  the  follow¬ 
ing  way.  First,  the  program  reads  "filename. cif"  (the  CIF 
file),  computes  the  size  of  the  plot,  and  asks  the  user  if  a 
plot  is  desired  (this  allows  the  user  to  abort  the  plot  if 
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because  the  environment  that  the  program  operates  in  is  a 
central  part  of  the  program  objectives.  Implementational 
requirements  are  included  because  they  are  a  primary  objec¬ 
tive  of  the  program  and  they  will  have  a  direct  influence  on 
the  performance  and  functional  requirements  of  the  program. 
In  many  cases  the  requirements  are  simply  a  more  concise 
statement  of  the  system  goals  which  were  previously  defined. 

Program  Description. 

mcif plot  reads  a  geometric  description  of  an  integrated 
circuit  (from  a  file  to  be  referred  to  as  a  CIF  file),  and 
produces  a  file  of  plot  commands  (to  be  referred  to  as  a 
PLOT  file),  which  can  be  read  by  PLOT.COM  to  produce  a  check 
plot.  The  CIF  input  file  to  the  program  is  written  in  Cal¬ 
tech  Intermediate  Form  (CIF)  which  is  a  low-level  2-dimen¬ 
sional  graphics  language  suitable  for  describing  integrated 
circuits.  The  commands  in  the  CIF  file  describe  the  dimen¬ 
sions  of  geometric  elements  (like  a  Box  or  a  Wire)  and  where 
they  are  located.  A  detailed  description  of  the  syntax  of 
CIF  is  contained  in  chapter  four  of  Introduction  to  VLS I 
Systems  [13] .  mcif plot  interprets  a  CIF  2.0  description  (with 
the  exception  of  Poly  Commands  and  geometric  elements  in 
non-Manhattan  directions)  including  the  ability  to  rename 
symbols.  There  are  restrictions  on  the  size  and  complexity 
of  the  CIF  files  that  can  be  plotted  because  of  the  memory 
constraints  of  the  microcomputer  environment. 
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7)  Provide  warnings  and  error  messages  in  the  same 
format  as  cif plot.  Provide  additional,  more  detailed 
error  messages  to  better  specify  ambiguous  errors.  Pro¬ 
vide  options  to  simplify  use  in  the  microcomputer  envi¬ 
ronment.  Provide  error  messages  which  relate  to  the 
microcomputer  environment. 

These  objectives  will  be  transformed  into  specific  require¬ 
ments  in  the  next  section.  With  the  exception  of  additional 
error  handling  capabilities  and  features  to  ease  its  use  in 
the  microcomputer  environment,  the  program  will  be  designed 
to  function  identically  to  cif plot  within  the  constraints 
imposed  by  memory  and  disk  space.  The  goal  is  not  to  change 
the  function  of  the  program  or  to  dramatically  improve  it, 
but  to  duplicate  existing  functions  in  a  new  implementation 
for  a  different  environment.  It  is  stressed  that  mcifplot  is 
not  a  translation  of  cif plot's  code  into  a  slightly  differ¬ 
ent  implementation  of  C,  but  is  a  new  design  and  development 
specifically  for  the  special  requirements  of  execution  on  a 
microcomputer . 

Requirements  Definition 

This  section  defines  the  requirements  for  mcifplot.  A 
description  of  what  the  program  does  and  how  it  will  be  used 
is  given  first.  Next  the  requirements  for  the  program  are 
listed  in  three  categories:  implementation,  performance,  and 
functional.  Requirements  are  listed  first  for  implementation 
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mcif plot  will  duplicate  the  applicable  functions  of  the 
VLSI  design  tool  cif plot.  It  will  operate  on  CPM-based 
microcomputer  with  a  minimum  configuration  of  64K  memo¬ 
ry  and  two  disk  drives  with  a  capacity  of  180K  each, 
mcif plot  will  produce  a  file  of  plot  commands  which 
will  be  read  and  plotted  by  the  public  domain  utility 
PLOT.COM  to  produce  the  desired  check  plot. 

In  addition  to  this  primary  goal,  the  program  will  be  de¬ 
signed  to  meet  the  following  objectives: 

1)  Provide  all  applicable  options  of  cif plot.  These 
options  will  be  activated  using  the  same  commands  as  in 
cif plot . 

2)  Minimize  the  amount  of  disk  '-pace  required  for  the 
program  and  the  program's  temporary  storage  so  that  it 
can  be  contained  on  one  disk. 

3)  Minimize  the  amount  of  main  memory  required  for 
program  execution. 

4)  Minimize  the  execution  speed  of  the  program. 

5)  Divide  program  functions  to  allow  the  finished  pro¬ 
gram  to  be  split  into  several  program  modules  if  the 
completed  program  exceeds  available  main  memory. 

6)  Avoid  system  or  compiler  unique  features  so  that  the 
program  will  be  executable  on  all  CPM-based  microcompu¬ 
ters  and  be  easily  translated  to  other  operating  system 
environments . 
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.  System  Requirements  and  Justification 


The  most  important  stage  of  any  software  development 
project  is  the  specification  of  requirements.  This  specifi¬ 
cation  is  the  foundation  on  which  the  system  design,  de¬ 
tailed  design,  and  program  coding  and  testing  is  based.  Well 
written,  specific  requirements  allow  the  succeeding  steps  of 
the  system  development  to  proceed  quickly  and  efficiently. 
On  the  other  hand,  a  small  error  or  omission  in  the  require¬ 
ments  will  cause  major  problems  and  rework  if  it  is  not 
discovered  until  the  coding  stage.  This  chapter  presents  the 
project  objectives  and  the  implementation,  performance,  and 
functional  requirements  for  mcif plot.  The  justification  for 
the  specified  requirements  is  presented  as  each  one  is 
listed . 

Objectives 

One  of  the  most  important  parts  of  establishing  general 
design  objectives  is  that  the  goals  be  implementation  inde¬ 
pendent.  However,  the  design  of  mcif plot  is  somewhat  unique 
in  that  the  program  will  duplicate  the  function  of  an  exis¬ 
ting  program  in  a  new  operating  environment.  For  this  rea¬ 
son,  some  implementation  dependent  features  are  of  necessity 
included  in  the  design  objectives.  These  goals  are  listed 
first  because  they  are  the  primary  objectives  of  the  system 
design.  The  design  of  mcif plot  has  the  following  primary 
goal : 
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are  the  result  of  the  limitations  imposed  by  the  operating 
environment  will  also  be  discussed. 


Chapter  III  is  a  description  and  explanation  of  the 
system  design  as  documented  by  SADT.  Charts  from  the  SADT 
design  are  used  as  required  to  clarify  the  description. 

Chapter  IV  documents  the  detailed  design  of  the  pro¬ 
gram.  It  includes  descriptions  of  the  required  algorithms 
and  how  they  were  derived,  as  well  as  structure  charts  to 
decompose  module  functions. 

Chapter  V  contains  an  analysis  of  the  design,  the 
function  of  mcif plot ,  the  performance  of  mcif plot ,  and  a 
comparison  to  the  performance  of  cifplot. 

Chapter  VI  presents  the  conclusion  to  the  thesis.  It 
includes  recommendations  for  future  work  on  mcif plot  and 
similar  microprocessor  based  IC  design  tools. 


The  first  stage  of  the  project  will  involve  analysis  of  the 
way  cif plot  functions  and  the  limitations  imposed  by  the 
microcomputer  operating  environment.  A  detailed  list  of 
requirements  will  be  derived  from  this  analysis.  These  re¬ 
quirements  will  then  be  used  to  formulate  a  general  system 
design.  The  system  design  will  be  implemented  using  the 
Structured  Analysis  and  Design  Technique  (SADT).  SADT  charts 
and  documentation  will  define  the  program  to  at  least  the 
major  module  level. 

The  system  design  will  then  form  a  basis  for  the  de¬ 
tailed  design.  Additional  detail  as  required  in  the  form  of 
data  dictionary  expansions,  structure  charts,  and  specific 
algorithms  should  be  contained  in  the  detailed  design.  This 
design  will  be  implemented  on  CPM-based  microcomputer  (the 
same  environment  in  which  it  will  operate)  in  the  C  lan¬ 
guage.  In  particular,  the  TOOLWORKS  C/ 80  compiler  will  be 
used  primarily  because  of  its  high  cost/performance  ratio. 
The  final  phase  of  the  project  will  be  the  evaluation  of 
mcifplot  to  determine  if  the  established  requirements  were 
met  and  the  quality  of  its  performance  and  implementation. 

Sequence  of  Presentation 

Chapter  II  defines  the  requirements  for  mcifplot  and  a 
justification  of  how  these  requirements  were  derived.  A 
large  portion  of  the  chapter  describes  which  features  of 
cif  plot  will  and  will  not  be  implemented.  Requirements  which 


the  clarity  of  the  resulting  check  plots  is  limited,  it  is 
certainly  a  low  cost  alternative  to  producing  the  required 
plots . 

Tom  Alamy  of  Tektronix  has  developed  a  set  of  IC  design 
tools  for  the  TRS  80  Model  I  which  are  written  in  the  Forth 
language [3].  These  programs  have  over  200,000  lines  of  code 
and  have  been  used  to  design  circuits  of  up  to  15,000  tran¬ 
sistors.  The  system  can  be  used  for  low  level  cell  design  or 
for  high  level  layout  using  module  generators  and  cell 
placement . 

Probably  the  most  active  area  of  research  in  low  cost 
design  tools  is  at  the  University  of  Utah,  under  the  direc¬ 
tion  of  Professor  Kent  Smith.  A  set  of  VLSI  tools  has  been 
developed  using  a  design  methodology  called  Path-Programma¬ 
ble  Logic  (PPL).  Circuits  are  designed  by  arranging  symbols 
which  represent  circuit  elements  on  a  grid.  The  circuit 
densities  achieved  are  close  to  that  of  custom  VLSI  cir¬ 
cuits.  Early  work  involved  the  use  of  a  remote  terminal  and 
a  minicomputer  host[14].  More  recently,  a  PPL  system  has 
been  implemented  on  a  16-bit  IBM  personal  computer [3].  Chips 
as  large  as  250  X  250  mils  have  been  designed  and  simulated 
on  this  system. 

Approach 

The  approach  used  for  this  thesis  should  closely  paral¬ 
lel  the  approach  required  for  any  large  software  project. 
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computer  system.  Although  much  research  is  taking  place  in 
developing  VLSI  design  tools  and  even  design  systems  for 
high  performance  "personal"  computers  [  7 ; 1 8 ; 2 3 ;  2 4  ]  ,  this 
thesis  concerns  the  design  of  VLSI  tools  for  computers  on 
the  low  end  of  this  scale.  Specifically,  systems  of  interest 
will  be  microcomputers  with  limited  memory,  floppy  disk 
storage,  and  total  system  costs  of  under  $5000. 

Educational  CAD.  There  is  increasing  interest  in  using 
microprocessors  as  design  aids  in  education[2;5] .  The  main 
reason  for  the  interest  is  the  availability  of  these  compu¬ 
ters  and  their  low  cost.  In  most  cases,  student  design 
projects  do  not  require  high  performance  systems  or  high 
resolution  displays.  While  there  are  hundreds  of  low  cost 
microcomputers  to  choose  from,  the  software  situation  is  a 
different  story.  There  are  a  variety  of  CAD  software  pack¬ 
ages  available  like  PC-Draw,  CADdraft,  AutoCAD,  and  others, 
but  none  of  these  packages  is  specifically  for  IC  design  or 
produces  the  required  geometric  layout  files [9]. 

Microcomputer  Design  Tools.  With  the  exciting  possibi¬ 
lity  of  allowing  IC  design  to  be  taught  with  a  minimum  of 
hardware  expenditure,  it  is  surprising  how  little  research 
is  taking  place  in  this  field.  The  author  is  aware  of  ef¬ 
forts  in  three  areas.  A  program  developed  at  New  York  Uni¬ 
versity  at  Stony  Brook  allows  printing  of  IC  geometric  file 
check  plots  on  an  inexpensive  line  printer  [22].  This  program 
is  written  in  Pascal  and  uses  capital  letters  to  represent 
the  various  layers  and  overlays  of  an  IC  layout.  Although 
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microcomputer-based  check  plot  program,  especially  when 
working  with  small  subsets  of  the  entire  circuit. 


The  purpose  of  this  thesis  is  to  design  and  implement 
the  IC  design  tool  cif plot  on  a  CPM-based  microcomputer. 
Written  at  Berkeley  by  Dan  Fitzpatrick,  cif plot  reads  a  file 
of  primitive  geometric  commands  written  in  Caltech  Interme¬ 
diate  Form  (CIF)  and  produces  a  check  plot.  The  new  micro¬ 
computer  based  tool,  mcif plot,  will  incorporate  all  of  the 
applicable  features  of  cif plot  allowing  for  constraints 
imposed  by  memory  and  disk  space,  mcif plot ,  along  with  a 
group  of  other  microcomputer  based  tools,  will  allow  stu¬ 
dents  to  do  IC  design  work  on  existing  school  or  privately 
owned  microcomputers,  without  the  expense  of  a  minicomputer 
system  or  the  performance  impact  on  general  purpose  main¬ 
frames. 

Summary  of  Current  Research 

This  summary  of  current  research  is  divided  into  three 
sections.  The  first  section  defines  the  scope  of  interest 
and  gives  a  working  definition  for  "low  cost  personal  compu¬ 
ter."  The  second  section  describes  the  general  status  of  CAD 
on  microcomputers  in  education.  The  final  section  describes 
current  research  in  VLSI  design  tools  for  low  cost  microcom¬ 
puters  . 

Scope  of  Interest.  The  phrase  "low  cost  personal  compu¬ 
ter"  is  applied  in  the  literature  to  computers  ranging  in 
cost  from  a  $3000  Apple  II  system  to  a  $30,000  LSI-11  mini- 


Beyond  cost  savings,  the  use  of  microcomputers  would 
alleviate  many  of  the  problems  associated  with  Computer 
Aided  Design  (CAD)  on  large  mainframes:  heavy  use  of  system 
time,  complex  support  and  maintenance  management,  lack  of 
special  purpose  programming,  and  delays  associated  with 
serving  many  users [ 2 ; 5 ]  -  A  group  of  microcomputer-based 
design  tools  would  allow  a  small  circuit  or  a  subset  of  a 
larger  circuit  to  be  designed  and  tested  on  the  student's 
computer.  The  size  of  the  circuit  that  could  be  designed 
would  be  limited  by  the  speed  of  the  processor  and  the  size 
of  memory.  However,  in  most  educational  design  problems, 
these  limitations  would  not  seriously  affect  student  pro¬ 
jects.  An  integrated  set  of  design  tools  would  require 
programs  to  do  logic  design  and  simulation,  chip  layout, 
design  rule  and  electrical  checking,  feature  extraction, 
circuit  simulation,  and  timing  analysis [4]. 

If  implemented  on  a  microcomputer,  a  design  tool  for 
producing  layout  check  plots  would  be  especially  useful. 
While  a  program  like  this  would  be  a  necessary  part  of  an 
integrated  set  of  microcomputer  design  tools,  it  would  also 
have  application  when  used  alone.  A  check  plot  program 
would  allow  remote  users  of  a  mainframe  to  produce  plots 
independently  from  their  office  or  home.  A  large  amount  of 
time  is  usually  spent  during  a  design  connecting  circuit 
subsets  together  and  checking  the  connections  with  check 
plots.  This  activity  could  also  be  done  easily  with  a 
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hardware  and  software.  Most  existing  IC  design  tools  are 
written  for  execution  on  mainframe  computers  or  expensive 
dedicated  minicomputer  systems.  IC  design  tools  produced  by 
the  schools  listed  above  are  available  in  the  public  domain, 
but  require  a  large  mainframe  on  which  to  execute [2].  While 
the  quality  and  performance  of  the  these  tools  is  excellent 
and  many  are  available  at  no  charge,  the  cost  of  the  equip¬ 
ment  required  for  their  operation  is  excessive  for  many 
universities.  The  alternative,  a  special  purpose  design 
system  using  a  minicomputer,  can  cost  from  $150,000  to 
$800,000  [5]  . 

This  problem  has  two  aspects:  1)  the  cost  of  the 
purchase  and  maintenance  of  a  computer  dedicated  to  IC 
design  is  prohibitive  for  many  universities,  2)  when  a 
time-shared  mainframe  is  available  for  use  in  IC  design 
courses,  the  memory  used  and  execution  time  of  the  design 
tools  has  a  serious  impact  on  the  performance  of  the  sys¬ 
tem.  One  solution  to  this  problem  is  to  utilize  less  expen¬ 
sive  and  readily  available  personal  computer  systems  to  do 
the  IC  design  required  for  educational  curriculums.  Based 
on  price  alone,  microcomputer-based  IC  design  appears  to  be 
an  attractive  alternative  to  the  mainframe  or  special  pur¬ 
pose  design  system.  A  microcomputer  system  with  the  minimal 
required  features  could  cost  as  little  as  $2,000  and  many 
students  would  already  own  the  necessary  equipment  for  the 
design  work. 
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the  door  for  more  extensive  involvement  of  schools  in  IC 
design  research  and  education.  Today,  almost  100  universi¬ 
ties  teach  IC  design  courses[20],  many  of  which  involve 
fabrication  of  student  circuits. 

University  research  in  IC  design  is  moving  in  many 
directions.  One  of  the  most  active  areas  is  the  development 
of  new  design  tools.  While  most  of  these  tools  are  being 
used  within  the  educational  community,  it  is  not  uncommon 
for  industry  to  borrow  ideas  and  even  particular  programs 
from  these  university  designed  tools.  The  Very  Large  Scale 
Integration  (VLSI)  tool  SPICE2,  which  was  developed  at 
Berkeley,  has  seen  wide  distribution  to  both  the  IC  industry 
and  other  universities  [  1 7 ] .  At  present,  universities  are 
developing  IC  design  tools  at  such  a  rate  and  in  such  quan¬ 
tities  that  they  are  sometimes  outdated  before  they  are  used 
at  distribution  sites.  In  particular,  the  following  univer¬ 
sities  are  leading  in  the  creation  of  new  design  tools: 
California  Institute  of  Technology,  Carnegie-Mel Ion  Univer¬ 
sity,  Massachusetts  Institute  of  Technology,  Stanford  Uni¬ 
versity,  and  the  University  of  California  at  Berkeley [19] . 

Problem 

Unfortunately,  the  average  university  is  working  with 
far  fewer  resources  than  the  schools  listed  above.  One  of 
major  stumbling  blocks  for  developing  a  quality  program  in 
IC  design  for  most  schools  is  the  cost  of  the  required 
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language . 

4)  The  output  PLOT  file  generated  by  the  program  must 
be  compatible  with  the  public  domain  plotting  utility 
PLOT.COM.  For  example,  a  CIF  Box  command  must  be  translated 
into  the  Draw  and  Fill  commands  that  are  recognized  by 
PLOT.COM.  Compatibility  with  PLOT.COM  must  include  such 
factors  as  multiple  page  plots  and  the  precision  of  numbers. 

The  justification  for  these  requirements  is  that  they 
are  part  of  the  project  objectives  which  were  independently 
established.  However,  these  features  are  largely  based  on 
what  is  currently  available  in  inexpensive  microcomputer 
systems.  CPM  is  one  of  the  more  popular  and  established 
operating  systems  for  personal  computers.  There  is  an  exten¬ 
sive  group  of  public  domain  programs  available  for  CPM, 
including  the  utility  PLOT.COM,  which  will  greatly  simplify 
the  program's  scope  and  complexity. 

The  memory  and  disk  sizes  listed  above  were  once  fairly 
large  by  personal  computer  standards.  Furthermore,  as  per¬ 
sonal  computer  performance  and  capability  improves,  memory 
and  disk  capacity  will  continue  to  grow.  By  restricting  the 
program  to  the  above  memory  and  disk  size,  compatibility  is 
assured  with  thousands  of  existing  systems,  as  well  as  more 
powerful  future  microcomputer  systems. 

Finally,  the  C  language  was  chosen  for  it's  portability 
as  well  as  it's  robust  operators  and  commands.  To  accomplish 
the  implementation  of  mcif plot  in  the  limited  memory  availa- 


ble,  it  will  be  necessary  to  have  the  extensive  control  over 
low  level  I/O  functions  which  is  possible  with  C.  This  is 
also  the  language  that  cif plot  is  written  in.  In  particular, 
the  TOOLWORKS  C/ 80  compiler  will  be  used  because  of  its  high 
cost/performance  ratio. 

Performance  Requirements 

This  is  the  most  difficult  set  of  requirements  to 
establish.  Although  an  implementation  of  this  program  al¬ 
ready  exists,  the  operating  environment  that  it  is  designed 
for  (Unix  operating  system  on  a  VAX  11-780)  is  vastly  different 
than  that  of  a  microcomputer.  The  size,  speed,  and  perfor¬ 
mance  of  cifplot  provide  little  information  about  the  type 
of  results  to  be  expected  on  a  microcomputer.  However,  two 
performance  requirements  are  specified  as  follows: 

1)  The  program  will  read  and  produce  an  output  PLOT 
file  for  a  CIF  file  of  up  to  35K  in  length  for  the  computer 
system  specified  in  the  objectives.  It  is  expected  that  each 
executable  CIF  command  will  require  an  average  of  5  -  15 
plot  commands  which  will  occupy  approximately  four  times  as 
much  disk  space  as  most  CIF  commands.  A  maximum  size  35K  CIF 
file  is  established  to  allow  the  output  PLOT  file  (which  is 
estimated  to  be  four  times  as  large  -  140K)  to  be  placed  on 
the  same  disk. 

The  3 5 K  size  limit  will  be  used  as  a  guideline  for 
program  development  and  evaluation.  The  actual  possible 
maximum  size  of  an  input  CIF  file  will  depend  on  the  disk 
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capacity  of  the  computer  on  which  the  program  is  executed 


and  the  characteristics  of  the  CIF  file  (see  factors  below), 


For  all  input  CIF  files,  the  program  will  write  the  output 


PLOT  file  until  execution  is  complete  or  the  capacity  of  the 


disk  is  reached.  If  the  size  of  the  PLOT  file  reaches  disk 


capacity,  then  the  file  will  be  closed  at  the  maximum  possi¬ 


ble  size  so  that  a  check  plot  can  be  made  of  the  CIF  file  up 


to  this  point.  Because  the  output  PLOT  file  will  vary  great¬ 


ly  in  size  depending  on  the  structure  and  format  of  the 


input  CIF  file,  no  error  checking  will  be  done  on  the  size 


of  the  input  file  before  processing  begins. 


Three  factors  will  affect  the  validity  of  the  estimated 


CIF  file  to  PLOT  file  ratio  of  1:4.  First,  it  is  assumed 


that  only  Manhattan  directions  are  used  in  the  CIF  file  (see 


Functional  Requirements).  Non-Manhattan  directions  would 


require  many  additional  PLOT  file  commands  because  of  the 


greater  number  of  fill  plot  commands  required  to  "color"  the 


irregular  shape.  The  second  factor  is  the  number  of  Call 


commands.  Each  Call  will  cause  all  the  executable  commands 


specified  (and  called)  in  a  symbol  to  be  transformed  into 


the  required  plot  commands  in  the  PLOT  file.  This  could 


result  in  a  single  CIF  command  generating  100's  of  plot 


commands . 


Finally,  the  length  of  the  plot  (x  direction  with  no 


rotation)  will  effect  the  number  of  plot  commands.  PLOT.COM 


uses  memory  to  create  an  image  to  be  plotted  on  a  page  by 


page  basis.  For  example,  if  a  plot  requires  three  pages  of 
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output,  then  wires  and  boxes  which  run  the  length  of  the 
plot  would  have  to  be  specified  with  plot  commands  three 
different  times.  Any  of  these  factors  could  cause  the  output 
PLOT  file  of  a  CIF  file  that  was  less  than  35K  to  exceed  the 
estimated  140K.  For  this  reason,  the  maximum  size  file  that 
can  be  plotted  will  depend  on  the  characteristics  of  the 
input  file  as  well  as  the  system  disk  capacity. 

2)  The  execution  time  of  the  program  on  a  maximum  size 
CIF  file  (35K)  will  not  exceed  one  hour  for  the  system 
specified  in  the  objectives.  Of  course,  execution  speed 
will  not  depend  solely  on  the  size  of  the  file,  but  also  on 
many  other  factors.  These  factors  include  the  CPI)  (Central 
Processing  Unit)  clock  rate,  disk  access  speed,  the  dimen¬ 
sions  of  the  CIF  file,  and  the  hierarchical  nature  of  the 
CIF  file.  The  characteristics  of  the  CIF  file  will  affect 
execution  speed  in  proportion  to  the  number  of  commands  that 
must  be  processed.  The  disk  access  speed  and  CPU  clock  rate 
will  vary  from  system  to  system.  The  one  hour  time  limit 
is  an  arbitrary  limit  beyond  which  the  author  feels  the 
usefulness  of  the  program  for  IC  development  would  be  seri¬ 
ously  impaired.  It  should  be  noted  that  this  time  estimate 
does  not  include  the  time  required  to  execute  PLOT.COM  and 
obtain  a  plot  of  the  PLOT  file. 

The  execution  time  for  PLOT.COM  also  depends  on  the 
type  of  input  file  which  it  processes.  PLOT.COM  has  two 
stages  of  execution.  First,  the  input  file  is  read  and  the 
elementary  plot  commands  are  used  to  create  a  bit  map  in 
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memory  which  corresponds  to  the  commands.  The  execution  time 
for  this  stage  depends  on  the  type  of  input  file.  The  author 
has  observed  execution  times  in  this  stage  which  range  from 
a  few  seconds  to  eight  minutes.  Fill  commands  are  especially 
CPU  intensive  (unfortunately  the  output  of  mcif plot  will 
have  many  Fill  commands). 

The  second  stage  of  PLOT.COM  execution  is  the  output  of 
the  memory  map  to  the  printer.  This  time  varies  from  printer 
to  printer,  but  is  constant  for  each  full  page  output.  With 
the  Okidata  92,  output  takes  approximately  seven  minutes  for 
one  full  page.  This  time  will  be  less  if  there  are  "blank" 
output  lines  which  require  no  printing  (PLOT.COM  uses  line 
feeds  to  quickly  output  these  lines). 

The  combined  time  of  both  stages  must  be  considered  in 
order  to  estimate  the  execution  time  of  PLOT.COM.  Of  course, 
multiple  page  plots  increase  the  execution  time  by  at  least 
a  factor  of  the  number  of  pages  times  the  printer  output 
time . 

Functional  Requirements 

The  functional  requirements  of  the  program  are  con¬ 
cerned  with  what  it  does  and  does  not  do.  Because  the  pro¬ 
gram  is  intended  to  duplicate  the  functions  of  cif plot,  the 
manual  for  cif plot  will  be  examined  function  by  function  to 
illustrate  which  functions  and  options  mcif plot  will  and 
will  not  perform.  These  requirements  were  developed  with  the 
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aid  of  the  CIF  syntax  description  in  A  Guide  to  LSI  Imple¬ 
mentation  [8]  and  will  be  divided  into  three  categories. 

Each  function  or  option  in  cif plot  will  be  labeled  as 
Not  Required  (NR),  Required  (R),  or  Desired  (D).  Options 
listed  as  Desired  will  be  implemented  if  possible  within  the 
constraints  imposed  by  memory  size,  program  size  and  devel¬ 
opment  time.  Defining  a  priority  for  each  requirement  at 
this  point  will  simplify  the  choices  which  will  be  necessary 
if  the  scope  of  the  program  needs  to  be  reduced  during 
development.  This  will  also  suggest  directions  for  future 
enhancement  of  the  final  program. 

In  order  to  delineate  between  the  cif plot  manual  and 
the  requirements  description,  the  following  conventions  will 
be  adapted.  The  manual  text  will  be  indented  and  single 
spaced.  All  requirements  text  will  have  normal  margins  and 
begin  with  one  of  the  three  categories  (R,  NR,  D) .  A  justi¬ 
fication  for  the  decision  to  implement  or  not  implement  an 
option  or  function  is  given  directly  following  each  require¬ 
ment. 

NAME 

cifplot  -  CIF  interpreter  and  plotter 

SYNOPSIS 

cifplot  [  options  ]  filel.cif  [  file2.cif  ...  ] 

R:  mcif plot  will  use  this  format  for  the  command  line  with 
the  exception  of  reading  more  than  one  CIF  file.  More  than 
one  file  in  the  command  line  will  produce  a  fatal  error. 

D:  Allow  reading  and  interpreting  of  multiple  CIF  files. 
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This  would  be  implemented  primarily  for  consistency  with 
cif plot.  In  the  operating  environment  for  which  the  program 
is  designed,  this  feature  would  be  required  only  rarely.  The 
maximum  total  size  of  the  input  CIF  file  would  still  be 
restricted  as  above. 


DESCRIPTION 

Cifplot  takes  a  description  in  Cal-Tech  Interme¬ 
diate  Form  (CIF)  and  produces  a  plot.  CIF  is  a  low- 
level  graphics  language  suitable  for  describing  inte¬ 
grated  circuit  layouts.  Although  CIF  can  be  used  for 
other  graphics  applications,  for  ease  of  discussion  it 
will  be  assumed  that  CIF  is  used  to  describe  inte¬ 
grated  circuit  designs.  Cifplot  interprets  any  legal 
CIF  2.0  description  including  symbol  renaming  and 
Delete  Definition  commands.  In  addition,  a  number  of 
local  extensions  have  been  added  to  CIF,  including 
text  on  plots  and  include  files.  These  are  discussed 
later.  Care  has  been  taken  to  avoid  any  arbitrary 
restrictions  on  the  CIF  programs  that  can  be  plotted. 


R:  mcif plot  will  also  read  and  interpret  CIF  files  including 
symbol  renaming.  However,  geometric  features  in  non-Manhat¬ 
tan  directions  as  well  as  Poly  Commands  will  produce  runtime 
errors.  The  purpose  of  the  Poly  Command  is  to  create  non- 
Manhattan  geometric  elements  and  is  not  implemented.  The 
implications  of  this  restriction  are  discussed  in  more  de¬ 
tail  at  the  end  of  the  chapter.  Implementation  of  the  Delete 
Definition  command  would  require  that  construction  of  the 
PLOT  file  would  start  before  the  entire  CIF  file  is  read. 
This  would  be  difficult  to  implement  in  the  limited  disk 
space  of  a  microcomputer.  The  local  extensions  supported 
will  be  discussed  below.  Some  arbitrary  restrictions  on  the 
size  of  the  file  are  required  by  the  operating  environment 
and  these  were  discussed  under  implementation  and  perfor- 
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mance  requirements. 


To  get  a  plot  call  cifplot  with  the  name  of  the 
CIF  file  to  be  plotted.  If  the  CIF  description  is 
divided  among  several  files  call  cifplot  with  the 
names  of  all  files  to  be  used.  Cifplot  reads  the  CIF 
description  from  the  files  in  the  order  that  they 
appear  on  the  command  line.  Therefore  the  CIF  End 
command  should  be  only  in  the  last  file  since  cifplot 
ignores  everything  after  the  End  command.  After  read¬ 
ing  the  CIF  description  but  before  plotting,  cifplot 
will  print  a  estimate  of  the  size  of  the  plot  and  then 
ask  if  it  should  continue  to  produce  a  plot.  Type  y  to 
proceed  and  n  to  abort.  A  typical  run  might  look  as 
f ol lows : 


%  cifplot  lib.cif  sorter. cif 
Window  -5700  174000  -76500  168900 
Scale:  1  micron  is  0.004075  inches 
The  plot  will  be  0.610833  feet 
Do  you  want  a  plot?  y 

After  typing  y  cifplot  will  produce  a  plot  on  the 
Benson  Varian  plotter. 


R:  mcif plot  will  function  in  the  manner  described  above  with 
the  following  exceptions:  1)  will  not  accept  multiple  input 
files  (multiple  CIF  files  in  the  command  line  will  produce  a 
fatal  error),  2)  no  plotting  will  take  place,  a  PLOT  file 
will  be  produced  which  can  be  plotted  using  PLOT.COM.  The 
diagnostics  will  be  in  the  same  format  as  illustrated  above. 
A  complete  trace  of  the  Symbol  Table  will  be  required  before 
the  diagnostics  are  printed. 

D:  Allow  multiple  CIF  files  to  be  read  as  stated  above. 


Cifplot  recognizes  several  command  line  options. 
These  can  be  used  to  change  the  size  and  scale  of  the 
plot,  change  default  plot  options,  and  to  select  the 
output  device.  Several  options  may  be  selected.  A 
dash(-)  must  precede  each  option  specifier.  The  fol¬ 
lowing  is  a  list  of  options  that  may  be  included  on 
the  command  line: 
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-w  xmin  xmax  ymin  ymax 

(window)  The  -w  options  specifies  the  window;  by 
default  the  window  is  set  to  be  large  enough  to 
contain  the  entire  plot.  The  windowing  commands 
lets  you  plot  just  a  small  section  of  your  chip, 
enabling  you  to  see  it  in  better  detail.  Xmin, 
xmax,  ymin,  and  ymax  should  be  specified  in  CIF 
coordinates . 

R:  Fully  implemented. 


-s  float 

(scale)  The  -s  option  sets  the  scale  of  the  plot. 
By  default  the  scale  is  set  so  that  the  window 
will  fill  the  whole  page.  Float  is  a  floating 
point  number  specifying  the  number  of  inches 
which  represents  1  mici on.  A  recommended  size  is 
0.02. 


R:  A  subset  of  this  option  will  be  implemented.  The  plot  in 
the  X  direction  will  be  consistent  with  float  scaling  value. 
If  the  Y  dimension  plot  bounds  exceed  the  size  of  the  page, 
they  will  be  truncated  to  the  maximum  page  width  (cif plot 
would  produce  as  many  strips  as  required  to  plot  the  CIF 
file  at  the  input  scale).  The  allowable  scale  value  also 
depends  on  the  size  of  the  output  PLOT  file  (a  large  scale 
factor  could  possibly  require  a  PLOT  file  larger  than  avai¬ 
lable  disk  space). 

D:  Implement  full  strip  plotting  for  consistency  with  cif- 
plot . 

-1  layer_list 

(layer)  Normally  all  layers  are  plotted.  The  -1 
option  specifies  which  layers  NOT  to  plot.  The 
layer_list  consists  of  the  layer  names  separated 
by  commas,  no  spaces.  There  are  some  reserved 
names:  allText,  bbox,  outline,  text,  pointName, 
and  symbolName.  Including  the  layer  name  allText 
in  the  list  suppresses  the  plotting  of  text;  bbox 
suppresses  the  bounding  box  around  symbols. 
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outline  suppresses  the  thin  outline  that  borders 
each  layer.  The  keywords  text,  pointName,  and 
symbolName  suppress  the  plotting  of  certain  text 
created  by  local  extension  commands,  text  elimi¬ 
nates  text  created  by  user  extension  2. 
pointName  eliminates  text  created  by  user  exten¬ 
sion  94.  symbolName  eliminates  text  created  by 
user  extension  9.  allText,  pointName,  and 
symbolName  may  be  abbreviated  by  at,  pn,  and  sn 
respectively. 


R:  All  options  will  be  implemented  with  the  exception  of  the 
"text"  keyword  (User  Extension  2  is  not  implemented).  The 
options  bbox  and  outline  are  concerned  with  the  way  that  CIF 
syntax  is  interpreted.  The  options  allText,  pointName,  and 
symbolName  are  concerned  with  eliminating  text  created  by 
user  extensions.  Incorrect  format  will  produce  a  fatal  er¬ 
ror  . 

D:  Implement  the  "text"  keyword  in  conjunction  with  User 
Extension  2. 


-c  n 

(copies)  The  -c  option  specifies  the  number  of 
copies  of  the  plot  you  would  like.  This  allows 
you  to  get  many  copies  of  a  plot  with  no  extra 
computation.  Makes  n  copies  of  the  plot.  Works 
only  for  the  Varian  and  Versatec.  Default  is  1 
copy. 


NR:  Multiple  copies  can  be  obtained  by  multiple  runs  of 
PLOT.COM.  However,  since  CPM  converts  all  lower  case  letters 
to  upper  case  in  the  command  line,  use  of  *-c'  in  the  com¬ 
mand  line  will  be  interpreted  as  the  'C'  (Comments)  option 
as  described  below. 

D:  This  option  could  be  implemented  with  a  modification  to 
PLOT.COM  using  the  PLOT.COM  Extend  Command. 
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-d  n 


(depth)  This  option  lets  you  limit  the  amount  of 
detail  plotted  in  a  hierarchically  designed  chip. 
It  will  only  instanciate  the  plot  down  n  levels 
of  calls.  Sometimes  too  much  detail  can  hide 
important  features  in  a  circuit. 


R:  Fully  implemented.  This  option  may  also  allow  larger  CIF 
files  to  be  plotted  because  less  detail  is  required.  The 
default  depth  setting  is  10  to  prevent  stack  overflow  during 
symbol  tracing. 


-g  n 

(grid)  Draw  a  grid  over  the  plot  with  spacing 
every  n  CIF  units. 


R:  Implemented  with  the  exception  of  labeling  the  grid  lines 
with  dimensions. 

D:  Implement  labeling  the  grid  lines  with  dimensions. 


-h 

(half)  Plot  at  half  normal  resolution.  (Not  yet 
implemented . ) 


NR:  Options  not  supported  by  cif plot  will  not  be  implemen¬ 
ted.  Use  will  produce  a  fatal  error. 


(extensions)  Accept  only  standard  CIF.  User  ex¬ 
tensions  produce  warnings. 


R:  Fully  implemented. 


-I 

(non-Interactive)  Do  not  ask  for  confirmation. 
Always  plot. 

R:  Fully  implemented. 
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-L 

(List)  Produce  a  listing  of  the  C1F  file  on 
standard  output  as  it  is  parsed.  Not  recommended 
unless  debugging  hand-coded  CIF  since  C1F  code 
can  be  rather  long. 


NR:  This  would  be  an  option  of  questionable  value  in  mci f - 
plot's  operating  environment  and  would  increase  the  already 
long  program  execution  time.  Use  will  produce  a  fatal  error. 
D:  Implement  for  consistency  with  cif plot. 


(approximate)  Approximate  a  roundflash  with  an  n- 
sided  polygon.  By  default  n  equals  8.  (I.e. 
roundflashes  are  approximated  by  octagons.)  If  n 
equals  0  then  output  circles  for  roundflashes. 
(It  is  best  not  to  use  full  circles  since  they 
significantly  slow  down  plotting.)  (Full  circles 
not  yet  implemented.) 


NR:  Default  approximation  is  always  a  square  box.  Implemen¬ 
tation  is  too  costly  in  execution  time  and  size  of  the 
output  PLOT  file.  Use  will  produce  a  fatal  error. 

D:  Implement  for  consistency  with  cif plot. 

-b  "text" 

(banner)  Print  the  text  at  the  top  of  the  plot. 

R:  Fully  implemented  using  PLOT.COM  Text  Command. 


(Comments)  Treat  comments  as  though  they  were 
spaces.  Sometimes  CIF  files  created  at  other 
universities  will  have  several  errors  due  to 
syntactically  incorrect  comments.  (I.e.  the  com¬ 
ments  may  appear  in  the  middle  of  a  CIF  command 
or  the  comment  does  not  end  with  a  semicolon.)  Of 
course,  CIF  files  should  not  have  any  errors  and 
these  comment  related  errors  must  be  fixed  before 
transmitting  the  file  for  fabrication.  But  many 
times  fixing  these  errors  seems  to  be  more  trou¬ 
ble  than  it  is  worth,  especially  if  you  just  want 
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to  get  a  plot.  This  option  is  useful  in  getting 
rid  of  many  of  these  comment  related  syntax  er¬ 
rors  . 

R:  Fully  implemented. 

-r 

(rotate)  Rotate  the  plot  90  degrees. 

R:  Fully  implemented. 

-V 

(Varian)  Send  output  to  the  varian.  (This  is  the 
default  option.) 

NR:  Not  applicable  to  mcif plot's  mode  of  operation.  Use  will 
produce  a  fatal  error. 

-W 

(Wide)  Send  output  directly  to  the  versatec. 

NR:  Not  applicable  to  mcif plot's  mode  of  operation.  However, 
the  '-W'  option  will  be  interpreted  as  the  '-w*  (window) 
option  because  of  the  CPM  command  line  conversion  to  upper 
case  characters. 


(Spool)  Store  the  output  in  a  temporary  file  then 
dump  the  output  quickly  onto  the  Versatec.  Makes 
nice  crisp  plots;  also  takes  up  a  lot  of  disk 
space . 


NR:  This  is  the  standard  mode  of  operation  of  mci f plot 
except  that  the  temporary  file  (PLOT  file)  is  not  plotted. 
However,  because  of  the  CPM  command  line  conversion  to  upper¬ 
case,  the  '-S'  option  is  interpreted  as  the  '-s'  (scale) 
option . 
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T-T^TT-1 


-T 

(Terminal)  Send  output  to  the  terminal.  (Not  yet 
fully  implemented.) 

“Gh  — Ga 

(Graphics  terminal)  Send  output  to  terminal  using 
it's  graphics  capabilities.  -Gh  indicates  that  the 
terminal  is  an  HP2648.  -Ga  indicates  that  the 
terminal  is  an  AED  512. 


NR:  These  options  are  not  applicable  to  mcif plot's  operating 
environment.  However,  because  of  the  CPM  command  line  con¬ 
version  to  upper  case,  the  '-Gh'  or  ’-Ga'  option  will  be 
interpreted  as  the  '-g*  (grid)  option.  '-T'  will  be  inter¬ 
preted  as  the  '-t'  (transfer)  option  which  is  described 
below. 


-X  basename 

(extractor)  From  the  CIF  file  create  a  circuit 
description  suitable  for  switch  level  simulation. 
It  creates  two  files:  basename. sim  which  contains 
the  circuit  description,  and  basename. node  which 
contains  the  node  numbers  and  their  location  used 
in  the  circuit  description. 

When  this  option  is  invoked  no  plot  is  made. 
Therefore  it  is  advisable  not  to  use  any  of  the 
other  options  that  deal  only  with  plotting.  How¬ 
ever,  the  window,  layer,  and  approximate  options 
are  still  appropriate.  To  get  a  plot  of  the 
circuit  with  the  node  numbers  call  cifplot  again, 
without  the  -X  option,  and  include  basename. nodes 
in  the  list  of  CIF  files  to  be  plotted.  (This 
file  must  appear  in  the  list  of  files  before  the 
file  with  the  CIF  End  command.) 


NR:  Although  this  is  a  working  cifplot  option,  it  is  consi¬ 
dered  out  of  scope  of  the  thesis  project  and  will  not  be 
implemented.  Use  will  produce  a  fatal  error. 

-P  pattern_file 

(Pattern)  The  -P  option  lets  you  specify  your  own 
layers  and  stipple  patterns.  Pattern_file  may 
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Figure  I I I- 2 


The  purpose  of  this  is  to  emphasize  the  relationship  between 
the  two  programs,  mcif plot  is  very  similar  in  function  to  a 
language  compiler.  In  this  case,  the  language  to  be  compiled 
is  CIF.  The  standard  compiler  functions  of  reading  an  input 
file,  checking  syntax  and  semantics,  and  writing  an  output 
file  in  a  different  format  are  all  accomplished. 

The  program  reads  a  CIF  file  (file  of  elementary  plot 
commands  which  conforms  to  the  CIF  2.0  syntax  as  defined  in 
[13]  including  the  restrictions  listed  in  chapter  2)  and 
produces  an  output  PLOT  file.  The  PLOT  file  is  composed  of 
commands  which  can  be  read  by  the  public  domain  program 
PLOT.COM  to  produce  the  desired  check  plots,  mcif plot  inter¬ 
prets  the  input  CIF  file  and  checks  for  correct  syntax  and 
semantics.  Incorrect  syntax,  semantics,  or  runtime  overflow 
will  produce  the  second  output:  error  messages  to  the  stan¬ 
dard  output.  The  type  of  error  (fatal,  runtime,  or  warning) 
will  determine  whether  or  not  the  PLOT  file  can  (or  will)  be 
produced.  The  program  terminates  with  no  output  when  it 
encounters  a  fatal  error. 

The  function  of  the  program  is  determined  by  built-in 
defaults,  the  PATTERN  file,  the  CADRC  file,  and  the  Command 
Line.  These  items  control  optional  features  of  the  program 
and  are  used  to  tailor  the  output  file  as  desired. 

The  program  activities  can  be  divided  into  four  major 
modules  or  sections.  These  sections  are  called  Interpret 
Commands,  Parse  CIF  File,  Build  Plot  File,  and  Process 
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Figure  III- 


III.  System  Design 

The  overall  plan  which  describes  the  general  approach 
to  the  implementation  of  a  problem's  solution  is  described 
as  the  System  Design.  The  System  Design  is  the  beginning  of 
the  translation  of  detailed  requirements  into  a  finished 
product.  Because  this  thesis  is  concerned  with  the  develop¬ 
ment  of  a  software  program,  it  is  appropriate  to  use  exis¬ 
ting  software  engineering  tools  for  its  design  and  implemen¬ 
tation  . 

The  Structured  Analysis  and  Design  Technique  (SADT)  was 
chosen  for  the  System  Design  because  it  is  very  effective 
for  design  at  the  system  level  and  because  it  was  familiar 
to  the  author.  The  SADT  design  of  mcif plot  is  included  in 
this  chapter  (process  descriptions  which  are  normally  writ¬ 
ten  on  the  back  of  the  SADT  charts  are  included  in  the  text 
of  the  chapter).  The  associated  Data  Dictionary  which  con¬ 
tains  a  detailed  description  of  all  the  SADT  data  items  is 
included  in  Appendix  B.  At  this  stage  the  design  is  intended 
to  be  independent  of  a  particular  language  or  data  structure 
format . 

Overview 

The  SADT  diagram  Cl  in  Figure  1 1 1  —  1  presents  the  over¬ 
all  picture  of  the  inputs,  outputs,  and  controls  of  mcif- 
plot.  This  top  level  SADT  diagram  has  the  nonstandard  fea¬ 
ture  of  including  a  second  program  process  block  (PLOT.COM). 
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the  clarity  of  the  the  check  plot.  Of  course,  the  outlines 
can  be  eliminated  with  a  command  line  option. 

Finally,  because  of  the  expected  length  of  program 
execution  time,  an  additional  Desired  requirement  would  be 
to  allow  execution  to  be  suspended  and  then  resumed  at  a 
later  time.  The  status  of  the  program  and  all  intermediate 
values  would  be  saved  on  disk  and  the  program  could  be 
restarted  and  would  resume  execution  by  using  a  special 
command . 
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operating  environment  and  are  required  in  order  to  decrease 
execution  speed  and  memory  utilization. 


First,  non-Manhattan  directions  are  not  allowed  and 
will  produce  runtime  errors  if  detected.  This  restriction 
has  many  implications.  Directions  specified  in  Box  Commands 
and  transformations  in  Call  Commands  must  be  in  Manhattan 
directions.  Wire  Commands  (Poly  Commands  are  not  implemen¬ 
ted)  must  also  lie  in  Manhattan  directions  and  will  be 
approximated  with  boxes.  The  Roundflash  Command  will  be 
approximated  with  a  square  box.  Any  CIF  Commands  that  do  not 
meet  these  restrictions  will  not  be  accepted  and  will  pro¬ 
duce  a  runtime  error.  An  additional  Desired  requirement 
would  be  to  allow  the  acceptance  of  non-Manhattan  directions 
and  this  should  be  implemented  if  development  time  allows. 

Secondly,  the  outlines  of  two  or  more  geometric  ele¬ 
ments  on  the  same  layer  will  intersect  if  located  together. 
The  standard  mode  of  operation  for  cif plot  is  to  outline  the 
outside  of  each  layer  with  a  black  line.  Thus,  a  rectangle 
is  normally  drawn  with  a  rectangular  region  of  a  particular 
stipple  pattern  and  then  this  region  is  outlined  with  a 
black  line  to  clarify  its  dimensions.  With  ci f pi ot ,  if  two 
geometric  features  on  the  same  layer  intersect  (for  example, 
when  two  wires  overlap)  they  are  outlined  only  on  the 
outside  of  the  overlapping  regions.  With  mcif plot  the  com¬ 
mands  for  each  feature  will  be  generated  as  it  is  encoun¬ 
tered  in  the  CIF  file.  This  will  cause  the  outlines  of 
overlapping  regions  to  intersect  and  will  slightly  degrade 


11-29 


* 


cif plot's  options,  all  options  are  interpreted  as  upper  case 
letters.  A  new  users  manual  for  mcif plot  with  a  listinq  of 
all  supported  options  and  directions  for  program  operation 
is  included  in  Appendix  B. 


Table  II-l  cifplot/mcifplot  Options 


cif plot 

Option 

Status 

mcifplot 

Option 

Option 

Name 

Option 

Name 

a 

approximate 

N I 

- 

- 

b 

banner 

I 

b 

banner 

c 

copies 

N I 

- 

- 

C 

Comments 

I 

C 

comments 

d 

depth 

I 

d 

depth 

F 

Font 

N I 

- 

- 

g 

grid 

I 

g 

grid 

Ga/t 

Graphics  term 

N I 

- 

- 

h 

half  resolut. 

N I 

- 

- 

I 

interactive 

I 

i 

interactive 

1 

layer 

I 

l 

layer 

- 

- 

I* 

m 

make  page 

- 

- 

I* 

n 

notify 

0 

Output 

NI 

- 

- 

- 

I* 

o 

output 

P 

Pattern 

I 

P 

pattern 

- 

I* 

q 

quiet 

r 

rotate 

I 

r 

rotate 

s 

scale 

I 

s 

scale 

S 

Spool 

NI 

- 

- 

T 

Terminal 

NI 

- 

- 

- 

- 

I* 

t 

transfer 

V 

Varian 

NI 

- 

- 

w 

window 

I 

w 

window 

w 

Wide 

NI 

- 

- 

X 

extractor 

NI 

— 

- 

N I 

=  Not  Implemented 

I  = 

Implemented 

*  - 

options  unique  to  mcifplot 

In  addition  to  the  differences  listed  above,  mcif plot 
will  have  two  other  additional  functional  restrictions. 
These  restrictions  are  the  result  of  the  limitations  of  the 
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After  execution  of  the  program  is  successfully  com¬ 
pleted,  transfers  control  from  mcif plot  to  filename  with  the 
name  of  the  output  PLOT  file  as  input.  A  default  extension 
of  ".COM"  is  assumed  for  filename  if  no  extension  is  speci¬ 
fied.  The  most  useful  choice  for  filename  is  the  current 
version  of  PLOT.COM. 

The  execution  time  of  mcifplot  will  be  lengthy  for 
large  or  complex  input  CIF  files.  Messages  will  be  displayed 
on  the  standard  output  during  execution  to  notify  the  user 
of  the  status  of  program  execution.  The  following  new  option 
is  required: 

-q  (quiet) 

Inhibits  displaying  status  messages  on  the  standard 
output  so  that  mcifplot  executes  in  the  same  manner  as 
cif plot . 

mcifplot  will  frequently  be  used  to  prepare  one  page 
plots  for  inclusion  in  reports  or  presentations.  In  order  to 
allow  the  automatic  generation  of  these  one  page  plots,  the 
following  new  option  is  required: 

-m  (make  page) 

Forces  the  x  dimension  to  one  page  or  less  in  length, 
and  rescales  the  y  dimension  if  required.  Adds  a  border  of 
white  space  around  the  plot. 

The  ci f plot  options  and  those  options  required  for 
implementation  in  mcifplot  are  summarized  in  Table  1 1  —  1 .  Al¬ 
though  the  mcifplot  options  are  listed  in  both  lower  and 
upper  case  letters  in  order  to  have  a  similar  format  as 
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the  other  options.  Space  before  semi-colons  in  local 
extensions  can  cause  syntax  errors. 

The  -0  option  produces  simple  cif  with  no  scale  fac¬ 
tors  in  the  DS  commands.  Because  of  this  you  must 
supply  a  scale  factor  to  some  programs,  such  as  the  -1 
option  to  cif2ca. 

R:  Correct  interface  problems  caused  by  -r  option.  Correct 
syntax  error  problems  caused  by  spaces  in  local  extensions. 
NR:  Correction  of  -0  option  is  not  required  because  it  is 
not  implemented. 

Because  of  the  long  execution  time  expected  for  mcif- 
plot  it  is  important  to  clearly  define  the  status  of  all 
options.  This  will  help  prevent  the  user  from  executing  the 
program  and  producing  a  check  plot  only  to  discover  that  a 
desired  option  was  set  incorrectly.  The  following  new  option 
is  required: 

-n  (notify) 

Displays  the  status  of  program  option  defaults  and  new 
options  specified  from  the  command  line  or  CADRC  file  on  the 
standard  output.  Also  displays  diagnostics  concerning  the 
number  of  commands  and  symbols  in  the  input  CIF  file.  This 
text  output  can  be  redirected  to  a  file  for  a  saved  copy  if 
desired . 

In  order  to  print  a  check  plot,  PLOT.COM  must  be  exe¬ 
cuted  with  the  output  PLOT  file  as  input.  The  following  new 
option  is  required  so  that  the  check  plots  can  be  automati¬ 
cally  produced: 

-t  filename  (transfer) 
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D:  Implement  for  consistency  with  cif plot 


9  name ; 

(Name  symbol)  name  is  associated  with  the  current 
symbol . 

94  name  x  y; 

94  name  x  y  layer; 

(Name  point)  name  is  associated  with  the  point 
(x,  y).  Any  mask  geometry  crossing  this  point  is 
also  associated  with  name.  if  layer  is  present 
then  just  geometry  crossing  the  point  on  that 
layer  is  associated  with  name.  For  plotting  this 
command  is  similar  to  text  on  plot.  When  doing 
circuit  extraction  this  command  is  used  to  give 
an  explicit  name  to  a  node.  Name  must  not  have 
any  spaces  in  it,  and  it  should  not  be  a  number. 


R:  Fully  implemented. 


FILES 

"cad/ .cadre 
"/ .cadre 
"cad/bin/vdump 
/usr/ 1 ib/vfont/R. 6 
/usr/ tmp/cif * 


R:  Implement  checking  the  disk  for  a  CADRC  file  at  the  start 
of  program  execution.  In  the  CADRC  file,  options  which  are 
listed  on  the  line  starting  with  the  word  "mcifplot"  will 
also  be  used  in  addition  to  command  line  options  to  modify 
program  execution. 


ALSO  SEE 

mcp(cadl)  ,vdump(cadl),  cadrc(cad5) 

A  Guide  to  LSI  Implementation  by  Hon  and  Sequin, 
Second  Edition  (Xerox  PARC,  1980)  for  a 
description  of  CIF. 

AUTHOR 

Dan  Fitzpatrick 

BUGS 

The  -r  is  somewhat  kludgy  and  does  not  work  well  with 


NR:  Not  implemented  for  the  same  reasons  that  multiple  input 
CIF  files  are  not  allowed. 

D:  Implement  for  consistency  with  cif plot. 

OA  s  m  n  dx  dy  ; 

(Array)  Repeat  symbol  s  m  times  with  dx  spacing 
in  the  x-direction  and  n  times  with  dy  spacing  in 
the  y-direction.  s,  m,  and  n  are  unsigned  inte¬ 
gers.  dx  and  dy  are  signed  integers  in  CIF  units. 

NR:  Although  this  is  a  working  cifplot  option,  it  is  consid¬ 
ered  out  of  scope  of  the  thesis  project  and  will  not  be 
implemented. 

D:  Implement  for  consistency  with  cifplot. 


1  message; 

(Print)  Print  out  the  message  on  standard  output 
when  it  is  read. 

R:  Fully  implemented.  Will  prove  useful  in  program  develop 
ment . 


2  "text"  transform  ; 

2C  "text”  transform  ; 

(Text  on  Plot)  Text  is  placed  on  the  plot  at  the 
position  specified  by  the  transformation.  The 
allowed  transformations  are  the  same  as  the  those 
allowed  for  the  Call  command.  The  transformation 
affects  only  the  point  at  which  the  beginning  of 
the  text  is  to  appear.  The  text  is  always  plotted 
horizontally,  thus  the  mirror  and  rotate  trans¬ 
formations  are  not  really  of  much  use.  Normally 
text  is  placed  above  and  to  the  right  of  the 
reference  point.  The  2C  command  centers  the  text 
about  the  reference  point. 


NR:  User  Extension  9  provides  the  same  function  as  User 
Extension  2,  therefore  it  will  not  be  implemented. 


include  and  array  commands  (see  next  section)  and 
replaces  them  with  equivalent  standard  CIF  state¬ 
ments.  The  resulting  file  is  suitable  for  trans¬ 
mission  to  other  facilities  for  fabrication. 


NR:  The  include  and  array  commands  are  not  implemented  so 
there  is  no  requirement  to  "remove"  them.  Instead,  a  new 
option  is  implemented  as  follows: 

-o  output_file 

(output)  The  output  PLOT  file  is  written  to  the  file 
with  name  output_file.  Normally,  the  output  PLOT  file  is 
written  to  a  file  on  the  same  drive  with  the  same  name  as 
the  input  CIF  file  and  a  ".VEC"  extension.  This  option 
allows  the  specification  of  a  new  name  or  drive.  output_file 
must  be  a  legal  CPM  file  name. 


In  the  definition  of  CIF  provisions  were  made  for 
local  extensions.  All  extension  commands  begin  with  a 
number.  Part  of  the  purpose  of  these  extensions  is  to 
test  what  features  would  be  suitable  to  include  as 
part  of  the  standard  language.  But  it  is  important  to 
realize  that  these  extensions  are  not  standard  CIF  and 
that  many  programs  interpreting  CIF  do  not  recognize 
them.  If  you  use  these  extensions  it  is  advisable  to 
create  another  CIF  file  using  the  -0  options  described 
above  before  submitting  your  circuit  for  fabrication. 
The  following  is  a  list  of  extensions  recognized  by 
cif plot : 


R:  All  extensions  that  are  not  implemented  will  produce 
warnings  and  be  ignored  (with  the  exception  of  User  Exten¬ 
sion  0  which  will  produce  a  fatal  error).  The  extensions 
implemented  are  described  below. 


01  filename; 

(include)  Read  from  the  specified  file  as  though 
it  appeared  in  place  of  this  command.  Include 
files  can  be  nested  up  to  6  deep. 
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1 

;  example  pattern  file  of  format  1 
NP  27 
NC  13 
NB  127 

D:  Implement  a  second  format  which  allows  respecification  of 
the  PLOT.COM  default  "colors"  (patterns).  This  format  is 
signified  by  the  character  "2"  as  the  first  character  in  the 
file  on  the  first  line.  The  following  lines  contain  one  C IF 
layer  name  and  eight  two-digit  hex  numbers  separated  by 
spaces.  The  hex  numbers  correspond  to  the  PLOT.COM  Upload 
Command  as  specified  on  page  11  of  the  PLOT  DOCUMENTATION 
[21].  One  layer  is  specified  per  line  and  lines  that  begin 
with  are  ignored.  For  example: 


2 

;  example  pattern_file  of  format  2 
NM  88  44  88  44  88  44  88  44 

NC  AA  00  AA  00  AA  00  AA  00 

NP  00  01  00  02  00  03  00  04 


An  additional  desired  requirement  would  be  to  allow  reading 
and  interpretation  of  cif plot  format  pattern_f i les. 


-F  font_file 

(Font)  The  -F  option  indicates  which  font  you 
want  for  your  text.  The  file  must  be  in  the 
directory  7usr/  lib/vfont'.  The  default  font  is 
Roman  6  point.  Obviously,  this  option  is  only 
useful  if  you  have  text  on  your  plot. 


NR:  Not  applicable  to  mcif plot's  operating  environment  or 
supported  by  PLOT.COM.  Use  will  produce  a  fatal  error. 


-O  filename 

(Output)  After  parsing  the  CIF  files,  store  an 
equivalent  but  easy  to  parse  CIF  description  in 
the  specified  file.  This  option  removes  the 
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contain  an  arbitrary  number  of  layer  descriptors. 
A  layer  descriptor  is  the  layer  name  in  double 
quotes,  followed  by  8  integers.  Each  integer 
specifies  32  bits  where  ones  are  black  and  zeroes 
are  white.  Thus  the  8  integers  specify  a  32  by  8 
bit  stipple  pattern.  The  integers  may  be  in 
decimal,  octal,  or  hex.  Hex  numbers  start  with 
'Ox';  octal  numbers  start  with  'O'.  The  CIF 
syntax  requires  that  layer  names  be  made  up  of 
only  uppercase  letters  and  digits,  and  not  longer 
than  four  characters.  The  following  is  example 
of  a  layer  description  for  poly-silicon: 

"NP"  0x08080808  0x04040404  0x02020202  0x01010101 
0x80808080  0x40404040  0x20202020  0x10101010 


R:  This  option  is  modified  to  be  compatible  with  the  fea¬ 
tures  of  PLOT.COM  and  the  operating  environment.  The  speci¬ 
fied  pattern_file  must  have  a  legal  CPM  file  name.  It  will 
contain  a  slightly  different  format.  When  a  pattern_file  is 
specified,  the  default  mcif plot  layers  and  their  correspond¬ 
ing  PLOT.COM  "colors"  are  erased  and  replaced  with  the  new 
layers  and  colors.  A  maximum  of  15  layers  can  be  specified. 
CIF  layer  names  and  PLOT.COM  colors  must  be  legal  for  their 
respective  environments,  else  fatal  errors  will  be  produced. 
Default  PLOT.COM  colors  which  closely  correspond  to  the 
standard  NMOS  stipple  patterns  of  cif plot  will  be  built  into 
mcif plot . 

The  pattern_file  format  is  signified  by  the  character 
"1"  as  the  first  character  in  the  file  on  the  first  line.  It 
is  followed  by  a  list  of  layer  names  and  a  corresponding 
PLOT.COM  color  with  a  decimal  value  from  0  to  127.  One  layer 
is  specified  per  line  and  lines  that  begin  with  are  ig¬ 
nored.  For  example: 
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Errors.  Figure  III-2  decomposes  the  main  program  into  these 
four  processes. 


The  Interpret  Commands  section  parses  the  command  line 
and  the  CADRC  file  and  modifies  the  Control  Variables  to 
include  these  new  options.  Initially  all  Control  Variables 
are  set  to  the  Default  Control  Values  which  are  the  standard 
default  actions  for  the  program.  The  Control  Variables  con¬ 
trol  the  action  and  function  of  the  rest  of  the  programs 
modules . 

The  Parse  CIF  File  section  reads  and  parses  the  input 
CIF  File.  The  syntax  and  a  portion  of  the  semantics  of  the 
file  is  checked  and  appropriate  errors  are  generated.  In 
this  section,  a  Symbol  Table  is  constructed  which  contains 
information  on  bounds,  scale,  and  location  for  each  symbol 
in  the  CIF  file.  CIF  commands  not  inside  a  symbol  (Executa¬ 
ble  Commands)  are  saved  as  they  are  encountered  in  a  tempo¬ 
rary  file  called  the  Executable  File.  This  saves  the  over¬ 
head  of  storing  the  location  of  each  Executable  Command  for 
later  interpretation  when  the  output  PLOT  file  is  built. 

The  Build  Plot  File  section  reads  this  Executable  File 
and  generates  the  appropriate  plotting  commands  which  are 
written  to  the  PLOT  file.  The  PLOT  file  contains  the  elemen¬ 
tary  plot  commards  in  the  format  required  for  reading  and 
execution  by  PLOT.COM.  The  Executable  File  is  read  and  when 
calls  are  encountered,  the  called  symbol  is  located  in  the 
symbol  table  and  traced  as  required.  Symbols  are  read  from 
disk  (CIF  file  input)  and  the  CIF  commands  from  within  the 
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symbol  are  used  to  generate  additional  plotting  commands  in 
the  output  file.  This  process  continues  until  all  commands 
in  the  Executable  File  are  read  and  interpreted.  The  seman¬ 
tics  of  the  commands  are  checked  and  Error  Numbers  are 
output  as  required. 

The  final  major  activity  in  mcif plot  is  the  Print 
Errors  section.  It  receives  all  Error  Numbers,  and  prints 
the  associated  error  message  to  the  standard  output.  The 
error  messages  are  contained  in  a  special  file  called  a 
Message  File  to  save  space  in  the  main  program. 

These  four  sections  and  their  function  are  further 
decomposed  and  described  in  the  sections  below.  The  SADT 
diagram  that  is  associated  with  each  section  is  included 
immediately  following  the  description  of  the  section  and 
should  be  referred  to  while  reading. 


Interpret  Commands  (Figure  III-3) 

Set  Control  Variables  is  an  initialization  module  which 
initially  sets  all  the  Control  Variables  to  their  default 
values . 

The  Get  CADRC  Options  process  opens  and  reads  the  CADRC 
File  (there  are  no  errors  or  additional  actions  if  the  file 
does  not  exist).  The  file  is  searched  for  a  line  that  begins 
with  the  word  "mcifplot".  If  found,  the  words  following 
mcifplot  until  a  carriage  return  are  formed  into  CADRC 
Options  and  output.  The  CADRC  options  are  identical  in 
function  and  format  to  the  options  allowed  in  the  Command 
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Line  with  the  exception  of  the  specification  of  a  CIF  input 
file. 


I 


The  Parse  Options  process  reads  and  parses  the  CADRC 
Options  and  the  Command  Line  and  produces  the  Modified 
Control  Variables  and  Special  Control  Options  for  output. 
This  action  takes  place  for  each  word  of  both  inputs  (or  no 
action  takes  place  if  there  are  no  options  from  either 
source).  The  Special  Control  Options  are  parameters  which 
are  passed  to  a  group  of  modules  called  Modify  Control 
Variables  for  special  option  processing.  The  syntax  of  the 
options  are  checked  and  fatal  errors  are  generated  as  neces¬ 
sary. 

The  Modify  Control  Variables  process  accepts  Special 
Control  Options  and  produces  a  group  of  Modified  Control 
Variables  which  are  used  to  control  the  actions  of  other 
program  sections.  These  special  options  include  printing  a 
banner  and  changing  the  default  stipple  patterns  to  those  in 
an  optional  pattern  file.  The  Command  Line  and  CADRC  Options 
control  the  function  of  the  rest  of  the  program  through  the 
Control  Variables. 


Parse  CIF  File  (Figure  1 1 1  —  4  ) 

The  Open  File  module  opens  the  main  input  CIF  File  and 
reads  it  into  an  internal  buffer.  A  table  of  data  which 
contains  information  about  the  CIF  File  is  output  to  the  Get 
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Figure  III-4 


Cif  Command  process.  A  fatal  error  is  produced  if  the  file 
does  not  exist. 

The  Get  CIF  Command  process  gets  one  C IF  command  from 
the  internal  buffer  referenced  by  the  CIF  File  Table  and 
outputs  it  to  the  Parse  Cif  Command  process.  The  commands 
are  moved  into  a  temporary  buffer  for  processing  one  at  a 
time.  Comments  are  skipped  and  errors  are  produced  for  empty 
or  incomplete  commands. 

The  Parse  Cif  Command  process  takes  each  command  and 
breaks  it  into  tokens  to  check  syntax.  Each  Executable 
Command  is  output  to  the  Write  Executable  File  process  and 
Symbol  Data  is  output  to  Build  Symbol  Table.  All  syntax  and 
semantic  errors  produce  error  messages.  The  Symbol  Data  has 
several  formats  which  are  used  to  signify  the  beginning  or 
end  of  a  symbol,  it's  scale,  and  the  bounding  box  of  each 
CIF  command  within  a  symbol. 

The  Write  Executable  File  process  creates  the  EXECUTA¬ 
BLE  File  and  writes  all  Executable  Commands  to  this  file. 
The  CIF  End  Command  should  be  the  last  command  written  to 
the  file.  A  fatal  error  is  generated  if  the  file  cannot  be 
written  or  exceeds  available  disk  space. 

The  Build  Symbol  Table  process  creates  an  internal 
Symbol  Table  which  contains  a  list  of  all  CIF  symbols  by 
number,  their  bounds,  scale,  type  (whether  the  symbol  con¬ 
tains  Call  commands  or  not),  and  their  location  on  disk. 
This  information  is  derived  from  the  Symbol  Data.  The  bounds 
recorded  in  the  Symbol  Table  at  this  time  are  only  accurate 
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for  symbols  with  no  internal  Call  commands.  An  additional 
trace  of  the  Symbol  Table  is  done  by  a  later  process  to 
determine  the  bounds  of  symbols  which  contain  calls.  A  fatal 
error  is  generated  if  the  symbol  table  requires  more  memory 
than  is  available. 

Build  Plot  File  (Figure  1 1 1  —  5 ) 

The  Scale  Plot  process  is  the  controlling  process  of 
the  Build  Plot  File  section.  It  determines  the  CIF  units 
which  correspond  to  the  maximum  and  minimum  coordinates  in 
the  PLOT.COM  coordinate  system  by  tracing  the  Symbol  Table 
completely  from  top  to  bottom.  The  bounding  box  of  symbols 
which  contain  calls  is  modified  during  this  trace.  If  the 
window  option  is  selected  then  the  Y  dimension  is  scaled  to 
fill  the  page  left  to  right  and  the  X  dimension  is  scaled 
relative  to  this.  The  scale  option  takes  precedence  over  the 
window  option  and  forces  a  micron  per  inch  scaling.  A  scale 
option  value  that  will  generate  a  plot  too  big  for  the  page 
in  the  Y  direction  (i.e.  across  the  page)  will  generate 
window  values  which  truncate  the  plot  in  the  Y  dimension. 

Once  the  size  of  the  plot  is  determined,  the  user  is 
queried  whether  to  produce  a  plot.  The  question,  window 
size,  and  length  of  the  plot  in  the  X  direction  is  written 
to  the  standard  output.  A  negative  reply  produces  an  inter¬ 
nal  Error  Number  which  terminates  the  program.  If  more  than 
one  PLOT.COM  page  is  required,  this  process  initiates  re- 
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peated  reading  and  tracing  of  the  Executable  File  using 
different  sizes. 

The  Get  Executable  Commands  section  opens  the  Executa¬ 
ble  File  and  divides  the  commands  into  two  categories.  Call 
Commands  are  output  to  the  Trace  Symbol  Table  section.  All 
other  commands  (Geometric  Commands)  are  output  to  the  Write 
Plot  Commands  Section. 

The  Trace  Symbol  Table  section  parses  the  Call  Commands 
and  finds  the  symbol  in  the  Symbol  Table  referenced  by  the 
Call  Command.  If  this  symbol  is  already  in  a  memory  Symbol 
Buffer,  then  it  is  processed  and  the  Translated  Geometric 
Commands  are  output.  The  correct  translation  for  each  com¬ 
mand  is  determined  using  a  transformation  matrix  which  con¬ 
tains  all  the  transformations  of  higher  level  calls  multi¬ 
plied  together.  If  the  symbol  is  not  in  memory,  the  symbol 
is  read  into  a  Symbol  Buffer  (from  the  CIF  file)  and  then 
processed.  This  sequence  continues  until  all  Call  Commands 
from  the  Executable  File  are  read  and  processed.  Symbols 
which  would  fall  outside  the  window  of  the  plot  are  not 
processed . 

The  Write  Plot  Commands  section  clips  the  dimensions  of 
the  input  commands  using  the  scaling  factors  as  a  control. 
The  input  commands  are  translated  into  the  required  elemen¬ 
tary  plot  commands  with  the  correct  dimensions  for  PLOT.COM 
and  are  written  to  the  PLOT  File. 
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Print  Error  Messages  (Figure  1 1 1  —  6 ) 

The  Get  Error  Messages  process  receives  Error  Numbers 
and  reads  the  associated  message  from  Message  File.  This 
message  is  then  formatted  and  output.  Fatal  error  messages 
always  begin  with  the  word  "Fatal"  for  special  processing  by 
Write  Error  Messages. 

The  Write  Error  Messages  section  prints  the  input  mes¬ 
sages  to  the  standard  output  until  a  screen  of  errors  has 
been  output.  It  then  waits  for  a  prompt  from  the  user  to 
continue.  If  the  error  is  fatal,  the  Abort  Program  process 
is  started.  The  Abort  Program  process  erases  all  temporary 
files  and  stops  program  execution  immediately. 
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IV.  Detailed  Design 


The  Detailed  Design  translates  the  general  specifica¬ 
tion  documented  in  the  System  Design  into  a  specific,  de¬ 
tailed  plan  for  a  particular  implementation.  There  is  a 
tendency  during  software  development  to  move  directly  from 
the  System  Design  into  the  actual  coding  of  the  program. 
With  complex  projects,  this  usually  results  in  wasted  time 
and  effort  when  early  mistakes  and  incorrect  assumptions 
require  correction  and  modification.  The  Detailed  Design  of 
mcif plot  was  written  in  very  specific  detail  so  that  prob¬ 
lems  in  the  implementation  phase  would  be  kept  to  a  minimum. 

In  fact,  the  goal  of  the  Detailed  Design  is  to  make  the 
implementation  phase  primarily  a  C  syntax  exercise,  rather 
than  a  creative  effort.  Thus,  the  major  time  spent  on  imple¬ 
mentation  took  place  during  the  formulation  of  the  Detailed 
Design.  Chapter  IV  describes  the  design  goals  or  philosophy, 
the  design  procedure,  the  format  of  the  Detailed  Design,  and 
the  design  itself.  This  chapter  is  intended  to  introduce  the 
major  body  of  documentation  of  the  Detailed  Design  which  is 
contained  in  Appendixes  C,  D,  E,  and  F.  These  appendixes 
contain  a  complete  set  of  structure  charts,  procedure  head¬ 
ers  and  code,  and  a  detailed  Data  Dictionary  of  the  data 
elements  of  the  design. 
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Design  Goals 

The  major  design  goals  have,  of  course,  been  stated  in 
detail  in  the  requirements  section  of  Chapter  II.  What 
follows  is  a  summary  of  some  of  the  specific  goals  for  the 
implementation  of  the  requirements  into  code.  The  general 
goals  for  the  implementation  are  to  use  "good  coding  prac¬ 
tices",  develop  loosely  coupled  modules  with  strong  cohe¬ 
sion,  and  to  use  abstraction  to  enhance  unders tandabi 1 ity 
and  reduce  complexity.  In  addition,  because  of  the  microcom¬ 
puter  environment,  the  efficiency  of  the  implementation  must 
be  maximized.  These  goals  all  fall  under  the  general  catego¬ 
ry  of  good  software  engineering. 

"Good  coding  practices"  is  a  rather  nebulous  quality 
which  encompasses  a  variety  of  different  areas  of  software 
engineering  and  relates  to  programming  style.  Specifically, 
the  code  should  be  easy  to  understand  and  avoid  "correct" 
but  confusing  structures  or  branches  (very  easy  to  do  with 
C) .  Boundary  conditions  in  looping  constructs  should  be 
carefully  analyzed  and  processed.  Code  should  be  developed 
which  works  correctly  before  time  is  spent  making  it  faster 
or  more  compact.  Variable  names  should  be  descriptive  of  the 
quantities  they  contain.  In  general,  procedures  should  be 
used  to  perform  any  functions  which  are  done  repetitively. 

The  program  procedures  should  have  two  important  quali¬ 
ties.  First,  they  should  be  loosely  coupled  with  each  other. 
This  means  that  they  are  relatively  independent  of  each 
other,  and  as  much  as  possible,  their  interaction  is  through 
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the  exchange  of  data.  At  the  same  time,  the  procedures 
should  exhibit  strong  cohesion.  This  concerns  the  type  of 
function  that  is  accomplished  within  a  procedure.  The  goal 
is  to  have  the  procedure  perform  one  specific  function  as  a 
"black  box"  with  the  method  of  performance  unknown,  or 
hidden,  from  the  calling  module. 

Correct  use  of  design  abstraction  results  in  procedures 
and  functions  which  perform  as  "black  boxes".  The  program 
should  be  broken  down  hierarchically  into  procedures  which 
closely  abstract  the  solution  of  the  real  world  problem. 
Lower  levels  of  procedures  should  define  more  specific  de¬ 
tails  of  the  implementation  of  a  problem's  solution. 

Finally,  since  memory  space  will  be  at  a  premium,  the 
space  efficiency  of  the  program  is  very  important.  Whenever 
possible,  procedures  should  implement  a  general  purpose 
function  so  that  they  can  be  used  at  different  times  by  more 
than  one  calling  procedure.  In  addition,  the  space  in  the 
program  used  for  storing  messages,  tables,  and  arrays  should 
be  minimized  whenever  possible.  These  goals,  when  implemen¬ 
ted  consistently,  will  produce  code  which  is  both  easier  to 
understand  and  easier  to  debug,  maintain,  and  modify. 


Design  Procedure 


As  with  the  rest  of  the  design  process,  the  Detailed 
Design  adds  more  detail  to  the  previous  level  of  design.  In 
this  case,  the  previous  level  of  design  is  the  System  Design 
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sponding  error  message  on  the  standard  out.  The  error  mes¬ 
sages  are  not  a  part  of  mcif plot's  code  and  must  be  read  in 
from  the  MESSAGE  file  on  the  default  disk  drive.  If  this 
file  is  not  found,  then  just  the  error  numbers  are  dis¬ 
played.  prterror  calls  abort  if  fatal  errors  are  found,  or 
sets  the  global  variable  err_flag  to  TRUE  if  errors  are 
found  which  should  inhibit  the  final  output  of  the  PLOT 
f  ile . 

3.0  parse  cif.  The  parse_cif  procedure  is  responsible 
for  parsing  and  partially  interpreting  the  input  CIF  file 
(see  Figure  IV-3).  First,  it  sets  the  charcount  global 
variable  to  contain  the  available  space  on  the  default  drive 
using  a  call  to  the  procedure  getspace.  This  allows  a 
graceful  recovery  from  the  problem  of  filling  the  disk  while 
trying  to  write  the  EXECUTABLE  file.  The  next  step  is  to 
call  file__open  to  open  and  initialize  the  EXECUTABLE  file 
for  output.  As  the  CIF  file  is  processed,  all  commands  which 
are  not  part  of  a  symbol  definition  are  written  to  this 
file. 

The  CIF  file  is  processed  with  a  loop  which  repeatedly 
calls  get  cif  coin  to  get  one  CIF  command  from  the  input  CIF 
file.  If  this  command  is  not  a  DS  command  (used  to  signify 
the  start  of  a  symbol  definition)  then  wrt_ex_file  is  called 
to  check  the  syntax  of  the  command  and  write  it  to  the 
temporary  EXECUTABLE  file.  Otherwise,  bld_st  is  called  to 
check  the  syntax  of  the  entire  symbol  and  add  an  entry  to 
the  Symbol  Table. 
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line  and  the  CADRC  file.  The  procedure  calls  get_cad_opt  to 
read  and  parse  the  mcif plot  line  in  the  CADRC  file  (if  it 
exists).  get_cad_opt  also  calls  par_options  to  do  the  actual 
parsing  and  modification  of  the  Control  Variables  found  in 
the  CADRC  file. 

One  of  the  most  complex  procedures  in  mcif plot  is 
par_options  which  parses  the  options  in  the  command  line  and 
the  CADRC  file.  It  includes  a  large  case  statement  with 
entries  for  each  of  the  accepted  program  options.  If  the 
options  are  input  correctly,  then  the  state  of  the  appropri¬ 
ate  Control  Variable  is  modified.  For  example  if  the  *  —  i * 
option  is  detected  in  the  command  line,  then  the  control 
variable  interactive  is  set  to  FALSE  and  the  user  is  not 
queried  to  see  if  a  plot  is  desired  or  not.  This  procedure 
also  calls  get_pattern  if  required  by  the  '-p'  option  to 
read  and  process  new  layers  from  a  PATTERN  file. 

The  procedure  do_notify  is  called  int_comraand  if  the 
notify  ( ’  —  n ' )  option  is  detected  in  the  command  line  or 
CADRC  file.  This  procedure  displays  the  status  of  the  Con¬ 
trol  Variables  on  the  standard  output  as  well  as  any  new 
input  values  such  as  a  window  or  banner  value,  puts  is 
called  by  int_command  to  display  the  mcif plot  version  on  the 
standard  output  when  the  command  line  and  CADRC  file  has 
been  processed  without  error. 

A  lower  level  procedure  in  int_command  that  is  used 
throughout  the  mcif plot  is  prt_error.  This  procedure  accepts 
an  error  number  and  string  as  input  and  displays  the  corre- 


Procedure  Descriptions 

Figure  IV-1  is  the  top-level  structure  chart  of  the 
mcif plot.  The  main  procedure  is  only  responsible  for  setting 
the  default  values  of  several  global  variables  and  calling 
the  three  primary  sub-procedures.  The  abort  procedure  is 
included  at  this  level  in  case  there  are  syntax  errors  in 
the  input  CIF  file  that  prevent  the  output  PLOT  file  from 
being  written  correctly.  If  the  exbox  variable  returned  form 
parse  cif  is  equal  to  NILL  (0),  then  abort  is  called  to 
abort  the  program,  abort  gracefully  exits,  closing  all  open 
files,  erasing  temporary  files,  and  displaying  an  exit  mes¬ 
sage  on  the  standard  output,  abort  also  displays  program 
diagnostics  on  the  standard  output  if  the  notify  variable  is 
set  TRUE. 

The  three  main  sub-procedures  are  numbered  in  a  slightly 
unusual  manner  (2.0,  3.0,  4.0  rather  than  1.2,  1.3,  1.4) 
primarily  to  prevent  lengthy  procedure  numbers  near  the 
bottom  of  the  hierarchical  structure.  The  standard  C  command 
line  variables  argv  and  argc  are  passed  to  the  int_command 
procedure  for  processing.  The  parse_cif  procedure  returns  a 
pointer  to  a  box  structure  (exbox)  which  contains  the  CIF 
bounds  of  the  executable  commands  which  are  contained  in  the 
EXECUTABLE  file.  If  this  is  not  NILL,  it  is  passed  to  the 
bld_file  procedure  to  use  as  a  starting  value  to  determine 
the  true  bounds  of  the  plot. 

2.0  int  command.  int_command  is  decomposed  in  Figure 
IV-2  and  is  responsible  for  reading  and  parsing  the  command 
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The  most  complex  structure  is  the  symbol  structure 
which  contains  necessary  descriptive  information  about  the 
CIF  symbols  found  in  the  input  CIF  file.  This  includes  the 
symbol  number,  the  symbol  bounding  box,  the  symbol  scale, 
and  the  offset  and  record  used  to  determine  the  symbol's 
location  in  the  CIF  file  on  disk.  The  symbol  structure  has 
the  following  format: 


struct 


symbol 

C 

long 

number; 

int 

offset; 

int 

record; 

float 

scale; 

long 

sxmin; 

long 

symin; 

long 

sxmax; 

long 

symax; 

char 

calls; 

char 

inuse; 

struct 

); 

symbol  *next; 

The  scale  value  represents  the  division  of  two  integer 
values  and  is  stored  as  a  float  to  maintain  the  accuracy  of 
values  that  are  less  than  one.  The  offset  and  record  are  in 
the  format  required  by  the  C80  seek,  procedure.  The  calls 
variable  is  used  as  a  boolean  and  is  TRUE  if  the  symbol 
contains  any  Call  Commands.  The  inuse  variable  is  YES  when  a 
symbol  is  being  traced  and  is  used  to  detect  recursive 
symbol  calls.  The  Symbol  Table  is  constructed  as  a  linked 
list  and  the  next  variable  points  to  the  next  symbol  in  the 
list.  More  detailed  justification  of  the  format  of  the 
symbol  structure  is  contained  in  the  Data  Dictionary  of 
Appendix  D. 
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There  are  also  a  small  group  of  global  variables  asso¬ 
ciated  with  the  entire  program  and  with  the  parse_cif  and 
bld_file  procedures.  Their  purpose  is  to  allow  many  proce¬ 
dures  to  access  a  single  variable  such  as  line_number  and  to 
allow  an  upper  level  procedure  to  initialize  a  variable  that 
should  be  set  correctly  the  first  time  certain  lower  level 
procedures  are  called. 

Structures .  The  purposes  of  structures  in  the  program 
are  to  provide  a  way  to  pass  multiple  variables  between 
procedures  and  to  simplify  the  access  and  manipulation  of 
groups  of  variables.  It  should  be  noted  that  structures 
cannot  be  passed  between  procedures,  and  pointers  to  struc¬ 
tures  must  be  used  to  pass  structure  information. 

The  idea  of  a  box  (four  long  integers  which  represent 
the  the  lower  left  and  upper  right  corners  of  a  box)  and  a 
point  (two  long  integers  to  represent  a  point  in  two-dimen¬ 
sional  space)  are  integral  to  the  CIF  geometric  description. 
The  box  and  point  structures  represent  these  two  data  items 
throughout  the  design. 

The  cliprec  structure  (four  integers  which  represent 
the  status  of  four  sides  of  a  box)  is  used  to  record  the 
results  of  clipping  a  box  to  the  plot  window.  The  values 
(TRUE  or  FALSE)  in  a  cliprec  structure  determine  whether  or 
not  the  outline  for  a  box  side  is  drawn  (the  outline  for  a 
box  side  that  has  been  clipped  is  not  drawn).  The  file 
structure  represents  data  about  a  file  and  contains  elements 
for  it's  name  and  mode. 


Detailed  Design 

The  Detailed  Design  follows  the  basic  form  of  the 
System  Design  with  some  changes  made  to  better  organize  the 
control  of  the  major  modules.  First,  the  program  variables 
and  structures  are  discussed.  Then  the  important  top  level 
procedures  are  described  and  presented  with  the  appropriate 
structure  charts.  This  description  is  intended  to  be  a 
general  overview  of  important  procedures.  A  complete  set  of 
structure  charts  is  included  in  Appendix  C  along  with  the 
procedure  headers  which  describe  the  function  of  each  proce¬ 
dure.  The  major  algorithms  used  in  the  program  are  also 
discussed . 

Global  Variables.  It  is  obvious  from  the  Structure 
Charts  that  the  data ' interchange  between  procedures  fre¬ 
quently  uses  global  variables.  In  general,  this  is  not 
considered  good  software  engineering  and  results  in  tight 
coupling  between  procedures.  There  were  several  functional 
types  of  global  variables  used  in  the  program. 

One  type  has  been  given  the  name  Control  Variables. 
These  are  concerned  with  the  actions  and  function  of  the 
program  and  are  set  and  modified  by  the  command  line  or 
CADRC  file.  The  alternative  method  for  access  to  this  group 
of  data  items  was  to  create  a  C  structure  and  pass  a  pointer 
to  it.  In  most  cases  this  resulted  in  similar  coupling  to 
that  of  the  group  of  global  variables  and  it  added  addition¬ 
al  complexity. 
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/*********************************************************** 

*  DATE:  date  of  last  modification  * 

*  VERSION:  number  of  version  in  form  1.0,  1.1  etc.  * 

*  NAME:  name  of  procedure  * 

*  SCNUMBER :  Structure  Chart  number  of  procedure  * 

*  FUNCTION:  description  of  what  the  program  does  * 

*  INPUTS:  data  passed  to  procedure  * 

*  OUTPUTS:  data  passed  from  procedure  * 

*  GLOBAL  VARIABLES  USED:  global  variables  used  by  this  * 

*  procedure  but  not  changed  * 

*  GLOBAL  VARIABLES  CHANGED:  global  variables  changed  by  * 

*  the  procedure  * 

*  FILES  READ:  files  read  by  this  procedure  * 

*  FILES  WRITTEN:  files  written  by  this  procedure  * 

*  MODULES  CALLAO:  modules  called  directly  by  this  procedure* 

*  CALLING  MODULES:  modules  which  call  this  procedure  * 

*  HISTORY:  history  of  major  modifications  * 

***********************************************************/ 

In  addition  to  providing  part  of  the  Detailed  Design's 

documentation,  the  headers  will  be  used  with  each  procedure 

during  implementation. 

Data  Dictionary.  The  final  form  of  documentation  for 
the  Detailed  Design  is  the  Data  Dictionary  (Appendix  D) .  It 
contains  four  types  of  data  items  and  is  different  in  format 
from  the  Data  Dictionary  prepared  for  the  System  Design.  All 
constants  used  in  the  program  are  listed  and  described.  The 
origin  of  the  constant  and  the  method  of  calculation  (if  the 
constant  v/as  derived)  is  included  in  this  section.  There  is 
also  a  description  and  justification  for  each  C  structure 
used  in  the  design  and  a  listing  of  the  form  required  for 
implementation  in  C.  Next,  each  file  used  by  the  program  is 
described.  Finally,  each  variable  which  is  global  or  passed 
between  procedures  is  described  (including  the  Control  Va¬ 
riables).  These  data  items  are  arranged  in  alphabetical 
order . 


I V-8 


of  their  own,  were  developed  independently  of  mcif plot  and 
and  are  used  by  calls  within  mcif plot  to  write  all  plot 
commands  for  PLOT.COM  into  the  PLOT  file.  Headers  and  the 
code  required  for  implementation  of  both  the  C  and  PC  proce¬ 
dures  is  included  in  Appendix  E. 

The  final  type  of  procedure  is  labeled  "SYSLIB".  This 
procedure  implements  the  most  system  specific  type  of  func¬ 
tion:  computing  available  disk  space.  This  procedure  does 
not  contain  C  code,  but  contains  inline  assembly  code  taken 
directly  from  Rick  Conn's  assembly  language  library  SYSLIB3. 
It  provides  an  easy  to  use,  and  efficient  means  of  implemen¬ 
ting  a  system  directory  function  which  is  required  by  mcif- 
plot.  The  major  emphasis  of  the  actual  design  description  in 
Chapter  IV  is  the  presentation  and  "wa lk-through"  of  the 
program  Structure  Charts. 

Procedure  Headers.  The  procedure  headers  are  standard 
program  headers  which  usually  appear  before  modules  or  pro¬ 
cedures  in  a  program.  These  headers  provide  detailed  infor¬ 
mation  about  each  procedure  in  the  Structure  Charts  and  are 
listed  in  alphabetical  order  in  Appendix  C.  The  headers 
contain  the  following  information  about  each  procedure: 


procedure  and  how  they  communicate.  In  general,  the  charts 
are  drawn  in  standard  Structure  Chart  format.  Vectors  indi¬ 
cate  control  relationships  between  procedures.  The  name  of 
each  procedure  is  contained  in  a  box  and  small  arrows  are 
used  to  show  data  flow.  A  triangle  in  the  lower-left  corner 
of  a  procedure's  box  indicates  that  it  is  called  by  more 
than  one  parent  procedure.  Each  procedure  is  broken  down 
until  the  lowest  level  contains  procedures  which  call  no 
others . 

There  are  basically  five  "types"  of  procedures  shown  in 
the  SC's.  The  procedures  which  were  designed  specifically 
for  mcif plot  are  numbered  hierarchically  starting  with  the 
number  1.0  for  main.  Each  C80  library  procedure  which  is 
used  is  indicated  by  the  the  heading  "C80  PROC"  in  the 
procedure's  box.  These  procedures  are  not  broken  down  fur¬ 
ther  or  documented  with  headers.  Additional  information  on 
them  is  contained  in  the  C80  Manual [1]  and  a  short  summary 
of  their  function  and  inputs/outputs  is  included  in  Appendix 
F. 

There  are  also  a  number  of  procedures  labeled  "C  PROC". 
These  procedures  are  "standard"  C  procedures  which  are  ei¬ 
ther  taken  directly  from  The  C  Programming  Language [10]  or 
are  slight  modifications  to  C80  procedures.  For  example 
latoi  (long  ascii  to  integer)  was  created  by  changing  the 
type  of  the  output  variable  in  the  C80  procedure  atoi. 

The  fourth  type  of  procedure  is  labeled  "PC  PROC"  (Plot 
Command  Procedure).  These  procedures,  which  form  a  library 
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tion  of  variables  at  the  beginning  of  the  main  procedure. 

In  general,  an  entire  process  was  designed  before  pro¬ 
ceeding  to  the  next.  Thus,  Interpret  Commands  was  designed 
completely  before  proceeding  to  the  Parse  CIF  process.  As 
the  design  developed,  the  structured  English  included  in  the 
header  became  closer  and  closer  to  actual  C  code.  If  a 
better  method  of  implementing  a  function  was  discovered,  the 
previously  designed  procedures  were  changed  accordingly.  For 
example,  several  global  variables  were  converted  to  local 
variables  by  passing  pointers  to  them  between  the  necessary 
procedures . 

Design  Format 

The  final  format  of  the  Detailed  Design  of  mcif plot 
uses  three  types  of  documentation  which  are  contained  in 
Appendixes  C-F.  First,  Structure  Charts  are  used  to  show 
each  procedure  designed  for  the  program,  the  hierarchy  of 
the  design,  and  the  data  communication  that  takes  place 
between  procedures.  The  procedure  headers  contain  detailed 
information  about  each  procedure  and  are  included  with  the  C 
code  which  implements  the  procedure's  function.  Finally,  the 
Data  Dictionary  documents  all  global  and  passed  variables,  C 
structures,  constants,  and  all  input,  output,  and  temporary 
files.  These  three  documentation  types  are  explained  in  more 
detail  below. 

Structure  Charts.  The  Structure  Charts  begin  with  the 
top  level  procedure  of  the  program  (main)  and  show  each  sub- 
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as  described  by  SADT.  Because  this  was  the  author's  first 
experience  with  the  implementation  of  a  large  scale  software 
project,  the  entire  design  procedure  was  somewhat  experimen¬ 
tal  and  a  learning  process  at  each  step.  The  design  proce¬ 
dure  is  described  before  the  design  format,  because  some  of 
the  intermediate  steps  of  the  procedure  are  no  longer  a  part 
of  the  finished  design. 

The  first  step  in  the  design  process  was  to  begin 
translating  the  processes  of  the  SADT  into  descriptions  of 
specific  procedures  to  be  implemented  in  C.  These  descrip¬ 
tions  were  documented  in  the  code  headers  which  are  de¬ 
scribed  below.  In  most  cases,  SADT  processes  mapped  directly 
into  corresponding  C  procedure  descriptions.  Of  course, 
since  the  SADT  description  was  at  very  general  level,  these 
C  procedure  descriptions  were  just  the  start  of  a  hierarchi¬ 
cal  structure  of  C  procedures  which  performed  the  required 
high  level  function.  Included  in  the  procedure  header  was  a 
structured  English/C  pseudocode  section  which  described  in 
specific  detail  the  method  or  algorithm  of  performing  the 
desired  function. 

In  parallel  with  the  construction  of  the  procedure 
headers,  a  new  Data  Dictionary  was  developed,  and  structure 
charts  were  drawn  to  illustrate  the  hierarchical  nature  of 
the  design  and  the  interaction  between  the  different  proce¬ 
dures.  Some  SADT  processes  were  changed  in  scope  during  the 
translation  process.  For  example.  Set  Control  Variables  did 
not  map  into  a  procedure  but  was  accomplished  by  initializa- 


Both  wrt_ex_file  and  bld_st  use  a  large  case  statement 
with  an  entry  for  each  type  of  CIF  command.  The  syntax  of 
each  command  is  checked  with  a  call  to  a  specific  lower 
level  procedures  like  ck_box  or  ck_call.  If  errors  are 
found,  an  error  number  is  passed  to  prt_error.  The  checking 
procedures  also  calculate  the  bounds  of  the  the  geometric 
commands  (Box,  Wire,  Roundflash)  and  return  this  value  to 
the  calling  procedure. 

In  wrt_ex_f ile,  all  commands  with  correct  syntax  are 
written  to  the  EXECUTABLE  file.  The  bounds  of  the  geometric 
commands  are  used  to  modify  the  value  of  the  variable  exbox 
so  that  it  represents  the  bounds  of  all  geometric  EXECUTABLE 
commands.  Exbox  is  iater  passed  to  bld_file.  A  trace  of  the 
CIF  file  to  determine  the  plot  bounds  is  only  required  if 
there  are  symbols  in  the  file. 

bld_st  does  a  similar  process  of  checking  the  syntax  of 
all  commands  in  a  symbol  definition  by  repeated  calls  to 
getcifcom  and  the  checking  procedures  until  a  CIF  DF 
command  is  found.  A  new  Symbol  Table  entry  is  created  for 
the  symbol  being  processed.  If  a  Symbol  Table  entry  already 
exists  for  a  symbol's  number,  then  the  old  symbol  number  is 
set  to  zero,  a  warning  is  displayed  on  the  standard  output, 
and  the  new  symbol  is  added  to  the  Symbol  Table  (symbol 
redefinition) . 

After  the  bounds  of  the  all  geometric  commands  in  the 
symbol  are  found,  the  symbol  scale  value  is  used  to  convert 
*  bound  numbers  to  the  actual  bounds  of  the  symbol  which 


are  then  stored  in  the  Symbol  Table  entry  for  the  symbol. 
The  location  on  disk  of  the  start  of  the  symbol  definition 
is  stored  in  the  offset  and  record  variable  of  the  symbol 
entry  to  allow  random  access  to  this  symbol  by  the  bld_file 
procedure  (for  finding  true  bounds  and  building  the  PLOT 
file).  If  there  are  Call  Commands  in  the  symbol  definition, 
then  the  calls  variable  is  set  to  YES.  This  indicates  that 
the  symbol  bounds  may  require  modification  if  the  bounds  of 
the  called  symbol  exceeds  the  bounds  of  the  other  geometric 
commands  in  the  symbol.  Inuse  is  set  to  NO  for  each  symbol. 

4.0  bid  file.  bld_file  and  its  related  sub-procedures 
have  the  largest  and  most  complex  function  of  the  major 
procedures  and  are  responsible  for  writing  the  output  PLOT 
file  for  plotting  by  PLOT.COM  (see  Figures  IV-4  and  IV-5). 
The  algorithms  in  the  sub-procedures  are  derived  from  two 
major  sources:  1)  chapter  seven  of  A  Guide  to  LSI  Implemen¬ 
tation  [ 8 ] ,  and  2)  chapter  four  of  Principles  of  Interactive 
Computer  Graphics [ 15  ] . 

bld_file  first  allocates  a  "dummy"  buffer  of  one  char¬ 
acter  to  determine  the  top  of  available  memory.  The  memory 
location  returned  from  sbrk  for  the  dummy  buffer  is  offset 
upward  by  an  additional  "safety  zone"  and  stored  in  the 
variable  lastalloc.  This  value  will  be  used  in  tracedown  to 
insure  that  the  program  stack  does  not  "grow"  downward  and 
overwrite  the  Symbol  Table. 

Next  trace_table  is  called  to  determine  the  actual 
bounds  of  the  plot.  trace_table  must  read  in  each  command 
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from  the  EXECUTABLE  file  and  if  calls  are  encountered,  use 
these  calls  to  determine  the  bounds  of  the  called  symbol. 
Many  factors  must  be  considered  in  this  process.  The  symbol 
referred  to  in  the  Call  Command  is  located  in  the  Symbol 
Table.  If  this  symbol's  calls  entry  in  the  symbol  table  is 
NO,  then  the  bounds  found  by  parse_cif  are  correct  and  no 
further  tracing  is  required  of  this  symbol.  In  this  case, 
the  transformation  specified  in  the  input  Call  Command  is 
applied  to  the  bounds  of  the  symbol  and  returned. 

If  the  calls  entry  is  YES,  then  two  actions  must  take 
place.  First,  as  above,  the  actual  bounds  of  this  symbol 
must  be  transformed  and  returned  to  the  calling  process. 
Second,  to  find  these  bounds,  the  called  symbol  is  located 
in  the  Symbol  Table  and  a  random  access  is  done  to  the 
location  of  the  symbol  in  the  CIF  file.  Commands  are  then 
read  from  the  CIF  file  until  a  Call  Command  is  found.  Each 
time  that  a  Call  Command  is  found,  tracedown  is  called 
recursively  to  trace  and  find  the  bounds  of  this  called 
symbol.  The  value  returned  will  modify  the  bounds  of  the 
current  symbol  if  the  bounds  of  the  called  symbol  are  out¬ 
side  of  the  current  symbol  bounds.  When  all  calls  have  been 
traced,  the  calling  symbol  bounds  in  the  Symbol  Table  are 
set  to  the  new  values,  the  calls  variable  is  set  to  NO  (one 
trace  is  all  that  is  required),  and  the  symbol  bounds  are 
transformed  as  above  and  returned. 

The  purpose  of  the  process  described  above  is  to  finish 
the  trace  with  the  Symbol  Table  containing  the  true  bounds 


of  each  symbol  entry.  This  means  symbols  need  only  be  traced 
once  for  bounds  and  during  plotting,  symbols  do  not  have  to 
be  called  from  disk  and  traced  if  they  lie  outside  of  the 
current  window.  If  the  Control  Variable  rotate  is  TRUE,  the 
final  plot  bounds  are  rotated  90  degrees  before  they  are 
returned  to  bld_file. 

To  prevent  the  stack  from  overflowing,  the  value  of  the 
current  depth  is  compared  to  the  value  of  the  Control  Varia¬ 
ble  depth  before  each  symbol  call  is  traced.  Calls  nested 
too  deep  are  ignored  and  a  warning  issued.  All  local  varia¬ 
bles  are  declared  type  auto  so  that  a  new  set  of  local 
variables  is  generated  with  each  call  to  tracedown.  If  the 
location  of  the  last  local  auto  variable  allocated  is  less 
than  lastalloc,  then  the  stack  is  within  the  safety  zone 
above  the  Symbol  Table  and  all  new  calls  below  this  level 
are  ignored  and  a  warning  message  is  issued.  If  a  loop  is 
found  (a  symbol  calling  an  ancestor),  then  a  fatal  error  is 
generated . 

When  the  true  plot  bounds  are  found,  bld_file  passes 
them  to  the  procedure  set_page  to  determine  the  size  of  each 
page  in  CIF  units  and  the  number  of  pages  required  for  the 
plot.  set_page  also  sets  the  value  of  the  viewport  global 
variable  and  modifies  the  input  box  to  reflect  the  correct 
CIF  bounds  for  one  page.  Three  factors  are  considered  in 
these  calculations:  the  optionally  specified  scale  of  the 
plot,  the  optionally  specified  window  of  the  plot,  and  the 
true  bounding  box  of  the  plot.  The  viewport  variable  is  set 


using  the  formula  from  Newman[15],  page  75.  Since  the 
PLOT.COM  window  is  always  square,  one  value  will  do  for  both 
the  x  and  y  conversion  to  the  viewport.  The  basic  equation 
for  the  window  conversion  is 

Vpxr  -  Vpxl 

xscreen  - -  (Xw  -  Wdxl)  +  Vpxl  (1) 

Wdxr  -  Wdxl 

The  viewport  variable  is  equal  to  the  result  of  the  division 
and  is  a  constant  for  each  page  for  both  x  and  y.  The 
viewport  xr  and  xl  are  equal  to  the  PLOT.COM  values  of  1.0 
and  0.0  respectively.  Eq  (1)  now  reduces  to 

xscreen  =  viewport  *  (Xw  -  Wdxl)  (2) 

A  transformation  is  done  on  each  point  before  it  is  output 
to  the  PLOT  file  to  translate  it  from  CIF  units  to  the 
rotated  and  translated  axes  of  PLOT.COM.  This  always  moves 
Wdxl  to  0.  Thus,  the  windowing  transformation  reduces  to  a 
single  multiplication. 

bld_file  next  calls  report_size,  which  writes  the  size 
of  the  plot  in  feet  to  the  standard  output  and  (if  interac¬ 
tive  is  TRUE)  asks  the  user  if  a  plot  is  desired.  If  the 
answer  is  "y",  then  open_pfile  is  called  to  open  the  output 
PLOT  file  and  set  the  global  variable  charcount  with  the 
available  disk  space.  This  value  is  tested  before  each  write 
to  the  PLOT  file  to  allow  for  a  graceful  exit  if  the  availa¬ 
ble  disk  space  is  exceeded. 
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The  output  plot  file  is  created  with  repeated  calls  to 
plot_page,  once  for  every  page  to  be  plotted  (as  determined 
by  set_page) .  All  plot  commands  are  written  to  the  PLOT  file 
by  executing  calls  to  the  PC  procedures  such  as  pc_color  and 
pc  draw.  If  the  page  number  passed  to  plot_page  is  one,  then 
the  page  header  which  consists  of  the  name  of  the  input  CIF 
file,  the  window,  and  the  scale  of  the  plot  is  written  to 
the  PLOT  file  (call  to  pc_text).  Plot  commands  to  clear 
memory  to  the  color  white  (calls  to  pc_color  and  pc_erase) 
are  then  written  to  the  PLOT  file.  The  major  work  of  plot¬ 
ting  one  page  is  done  with  a  call  to  do_page.  do_page  is 
passed  a  matrix  which  is  the  top  level  transformation  for 
transforming  points  for  output  to  the  PLOT  file.  If  rotate 
is  TRUE,  a  matrix  which  represents  a  90  degree  rotation  is 
passed.  Otherwise,  the  identity  matrix  is  passed  to  do_page. 
The  final  action  of  plot_page  is  to  write  an  output  command 
to  the  PLOT  file  (call  to  pc_output). 

do_page  first  opens  the  EXECUTABLE  file  and  reads  in 
commands  one  at  a  time.  do_page  contains  a  large  case  state¬ 
ment  with  an  entry  for  each  type  of  CIF  command.  All  com¬ 
mands  which  are  not  Call  Commands  are  processed  immediately. 
For  example,  a  Layer  Command  results  in  a  call  to  get_layer, 
which  interprets  the  Layer  Command  and  returns  a  PLOT.COM 
color  value  to  be  used  for  the  output  of  geometric  commands. 
Or  if  a  Box  Command  is  found,  do_box  is  called  with  the  Box 
Command  string,  the  current  color,  the  input  transformation, 
and  the  scale  (since  this  is  the  EXECUTABLE  file,  the  scale 
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is  set  to  1.0).  do  box  does  the  following: 


1)  determines  the  bounds  of  the  box  from  the  Box  Com¬ 
mand  string  (call  to  box_bounds). 

2)  modifies  these  bounds  with  the  input  transformation 
and  scale  (call  to  trans_box). 

3)  clips  the  box  to  the  current  page  window  (call  to 

clip_box) . 

4)  transforms  the  clipped  box  to  the  PLOT.COM  coordi¬ 
nate  system  (call  to  trantoplot). 

5)  writes  the  transformed  box  to  the  PLOT  file  with  a 
fill  and  the  required  outlines  (call  to  put_box) . 

If  a  Call  Command  is  found,  do_page  calls  proc_call  to 
process  the  Call  Command.  proc_call  also  contains  a  large 
case  statement  like  do_page.  However,  it's  local  variables 
are  declared  type  automatic  so  that  it  can  be  called  recur¬ 
sively  if  additional  Call  Commands  are  found  in  the  called 
symbol.  The  transformation  specified  in  the  input  Call  Com¬ 
mand  is  used  to  modify  the  input  (or  current)  transformation 
that  was  passed  to  proccall  from  the  calling  procedure 
(either  proc_call  or  do_page) .  This  new  transformation 
matrix  is  first  applied  to  the  symbol  bounding  box  of  the 
called  symbol.  The  transformed  bounds  are  tested  to  see  if 
they  are  in  the  current  page  window  (with  a  call  to 
clip_box).  If  not,  then  it  is  not  necessary  to  access  the 
CIF  file  on  disk  and  proc_call  returns.  Otherwise,  the 
commands  in  the  symbol  are  read  in  from  the  CIF  file  and 
processed  until  a  DF  Command  if  found. 

If  another  Call  Command  is  found  in  the  symbol,  then 
the  current  location  in  the  CIF  file  is  saved  and  a  recur¬ 
sive  call  is  made  to  proc_call.  When  proc_call  returns,  this 
position  in  the  file  is  restored  by  a  random  access  in  the 
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CIF  file  and  processing  of  commands  continues  as  before.  The 
current  transformation,  location,  scale,  and  color  are  all 
stored  automatically  in  the  automatic  local  variables  of 
proc_call.  As  in  trace_table,  the  current  depth  is  checked 
to  prevent  stack  overflow. 

bld_file  continues  to  call  plot_page  until  all  pages  of 
the  plot  have  been  written  to  the  PLOT  file.  pc_quit  is 
called  to  write  the  PLOT.COM  Quit  command  to  the  PLOT  file 
and  control  then  returns  to  main. 


V.  Analysis 

The  Analysis  section  of  the  thesis  is  an  opportunity 
for  the  author  to  critique  his  own  work.  This  critique 
should  not  only  point  out  the  strong  points  of  the  design 
and  product,  but  should  also  highlight  weaknesses  and  sug¬ 
gestions  for  improvement. 

This  analysis  will  cover  several  areas  of  the  program 
and  the  program's  design.  The  following  areas  will  be  ana¬ 
lyzed  : 

1)  quality  of  the  program  design  vs.  design  goals 

2)  program  function  vs.  functional  requirements 

3)  program  performance  vs.  performance  requirements 

4)  current  status  of  mcif plot 

mcifplot  Design 

The  program  design  is  specific  and  contains  information 
about  all  aspects  of  mcifplot.  The  design  hierarchy  and 
intra-procedure  communication  is  documented  in  a  comprehen¬ 
sive  set  of  structure  charts.  The  passed  and  global  varia¬ 
bles,  as  well  as  constants,  files,  and  structures  are  well 
documented  in  the  Data  Dictionary.  The  C  code  itself  in¬ 
cludes  detailed  headers  which  describe  individual  procedure 
I/O,  access  to  variables,  intra-procedure  communication  and 
the  last  modification  date. 

The  code  itself  seems  to  be  well  thought  out  and  under¬ 
standable.  However,  because  of  the  time  pressure  under  which 
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the  program  was  developed,  it  is  likely  that  many  segments 
could  be  modified  for  increased  efficiency  in  space  and 
speed  of  execution.  For  example: 

1)  long  integers  are  used  for  storage  of  symbol  bounds 
up  until  the  bounding  box  is  output  to  the  PLOT  file.  Sever¬ 
al  long  to  float  conversions  take  place  at  different  stages 
in  the  program.  It  may  be  more  efficient  to  convert  to 
floating  point  numbers  earlier  in  the  program. 

2)  There  are  several  different  storage  areas  for  com¬ 
mand  strings  and  arrays  that  are  used  at  different  times  in 
the  program.  These  could  be  combined  into  a  global  string 
area  with  an  expected  savings  in  space.  It  may  also  be 
possible  to  allocate  more  of  the  program  storage  areas  at 
runtime  to  save  space  in  the  executable  file. 

In  general,  names  for  variables  and  procedures  are 
descriptive  and  appropriate  for  the  required  function.  Howe¬ 
ver,  there  are  some  poorly  named  or  organized  procedures. 
This  is  especially  true  in  procedures  whose  purpose  was 
changed  during  program  development.  For  example,  the  code 
which  displays  status  information  (number  of  lines  parsed, 
etc.)  on  the  standard  output  is  scattered  throughout  many 
different,  unrelated  procedures.  This  function  should  be 
located  in  a  single  procedure. 

The  program  is  designed  to  minimize  the  size  of  the 
executable  file.  Procedures  are  frequently  used  more  than 
once,  rather  than  repeating  a  similar  function  among  many 
slightly  different  procedures.  For  example,  put_box  is  used 
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by  do  box,  do_wire,  and  do_round  to  write  the  required 
geometric  figure  to  the  PLOT  file.  The  use  of  error  numbers 
and  an  external  MESSAGE  file  saves  almost  6K  of  space  in  the 
executable  file  and  centralizes  the  processing  of  errors. 


mcif plot  Function 

mcif plot  implements  all  of  the  functional  requirements 
defined  in  Chapter  II.  This  includes  the  following  func¬ 
tions  : 

1)  Reads,  parses,  and  generates  an  output  PLOT  file  for 
a  single  input  CIF  file.  Accepts  all  CIF  2.0  Commands  with 
the  exception  of  Poly  and  Delete  Definition  Commands.  The 
commands  must  define  symbols  and  geometric  elements  in  Man¬ 
hattan  directions.  Additionally  accepts  User  Extensions  1, 
9,  and  94. 

2)  Error  messages  are  generated  for  syntax  and  semantic 
errors  in  the  CIF  file.  Additional  error  messages  are  gene¬ 
rated  for  errors  in  the  command  line  and  CADRC  file  as  well 
as  for  environment  specific  errors  (out  of  disk  space, 
illegal  file  names,  etc.). 

3)  Accepts  and  implements  the  following  c i f p 1 o t  op¬ 
tions  : 

-b  (banner) 

-c  (comments) 

-d  (depth) 

-g  (grid) 

-i  (interactive) 

-1  (layer)  does  not  include  "text"  keyword 
-p  (pattern) 

-r  (rotate) 


-s  (scale) 

-w  (window) 

4)  The  output  PLOT  file  produces  a  check  plot  with  a 
header  in  the  cif plot  format.  Multiple  page  check  plots  are 
also  generated  automatically. 

5)  Accepts  and  implements  additional  options  unique  to 
mcif plot : 

-o  (output  file) 

-m  (make  page) 

-n  (notify) 

-q  (quiet) 

-t  (transfer) 

These  functions  were  verified  by  extensive  testing  of 
mcif plot.  All  syntax  and  semantic  error  messages  were  exer¬ 
cised.  Each  option  was  exercised  alone  and  in  conjunction 
with  other  options.  Over  100  check  plots  were  printed  to 
test  different  aspects  of  the  programs  function  (samples  are 
included  in  Appendix  G) .  As  much  as  possible,  the  same  CIF 
file  was  plotted  using  cif plot  to  compare  the  results  of  the 
two  programs. 

mcif plot  Performance 

mcif plot  meets  the  performance  requirements  defined  in 
Chapter  II.  It  was  discovered  that  the  execution  speed  of 
the  program  depends  to  a  great  extent  on  the  format  and  type 
of  the  input  CIF  file.  Table  V-l  documents  the  program 
execution  speed  of  four  different  CIF  files.  These  files 
were  chosen  to  represent  four  different  types  of  CIF  struc- 
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ture  and  illustrate  widely  varying  execution  times  for  both 
mcif plot  and  PLOT.COM. 

The  program  was  executed  on  a  CPM  based  computer  with  a 
four  Mhz  Z-80  microprocessor.  The  times  are  rounded  to  the 
nearest  second  and  are  all  in  the  format  minutesrseconds. 
The  file  sizes  are  for  a  disk  with  a  2K  block  size.  The 
execution  times  varied  slightly  depending  on  the  location  of 
mcifplot  and  the  input  CIF  file  on  disk. 


Table  V-l.  mcifplot  Performance 


CIF  File 

A 

B 

c 

D 

File  Size  (K) 

Output  PLOT  File  Size  (K) 

2 

2 

4 

128 

30 

92 

30 

186 

Symbols 

1 

6 

0 

9 

Box  Commands 

14 

117 

1822 

453 

Wire  Commands 

0 

0 

0 

3 

Layer  Commands 

7 

66 

5 

235 

Call  Commands 

1 

13 

0 

840 

Extension  Commands 

7 

13 

0 

0 

Total  Commands 

32 

227 

1830 

1572 

Parse  CIF  File  (min:sec) 

17 

:  23 

3:29 

1:39 

Find  Plot  Bounds 

01 

:  04 

:  16 

1:55 

Write  PLOT  file 

09 

9:43 

6:14 

24:36 

mcifplot  total 

27 

10:10 

9:59 

28:10 

PLOT.COM  computation  (min:sec) 

9: 

08 

5:20 

3:40 

3:22 

PLOT.COM  printing 

7: 

35 

3:20 

3:40 

1:36 

PLOT.COM  total 

16: 

43 

8:40 

7:20 

4:58 

Grand  Total  (min:sec) 

17: 

10 

18:50 

17:19 

33:08 

It  is  obvious  from  the  variety  of  execution  times 
listed  in  Table  V-l  that  the  contents  of  the  CIF  file  are 
the  determining  factor  in  execution  speed.  It  should  also  be 
noted  that  mcifplot  itself  requires  several  seconds  to  load 


into  memory  before  execution  even  begins.  Each  of  the  above 
files  is  discussed  as  it  relates  to  the  performance  of 
mcifplot.  Copies  of  each  check  plot  along  with  a  comparison 
check  plot  produced  by  cif plot  is  included  in  Appendix  G. 

File  A  is  a  short,  one  symbol  CIF  file  which  illus¬ 
trates  the  NMOS  stipple  patterns  built  into  mcifplot.  mcif¬ 
plot  creates  the  required  PLOT  file  in  less  than  a  minute. 
The  total  time  required  to  obtain  a  check  plot  is  over  17 
minutes.  PLOT.COM  requires  large  amounts  of  processing  time 
to  do  stipple  fills  in  proportion  to  the  size  of  the  area 
filled.  In  this  case,  the  entire  PLOT.COM  page  is  filled 
with  stipple  patterns  and  most  areas  are  filled  with  more 
than  one  pattern.  Thus,  a  fast  execution  time  by  mcifplot 
does  not  insure  a  fast  check  plot  generation  time. 

File  B  is  a  small  CIF  file  which  describes  a  four  word 
memory  (designed  by  Brian  Kelley).  The  output  PLOT  file 
requires  124K.  This  is  a  good  example  of  how  a  small  CIF 
file  with  a  hierarchical  design  (a  single  memory  cell  is 
repeated  to  form  a  four  bit  word  which  is  also  repeated  four 
times)  can  require  a  very  large  output  PLOT  file.  It  is 
clear  that  the  size  of  the  input  CIF  file  gives  very  little 
indication  of  the  final  size  of  the  PLOT  file. 

File  C  is  an  example  of  a  xarge  flat  (no  symbols)  CIF 
file.  It  describes  a  double  multiplier  (CIF  ID  105).  The 
input  CIF  file  of  30K  produces  an  output  PLOT  file  that  is 
smaller  than  the  one  produced  by  the  4K  CIF  file  B.  The 
execution  time  is  fairly  fast.  All  the  commands  in  a  file 
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with  no 'symbols  are  executable  commands  and  are  written  to 
the  temporary  EXECUTABLE  file. 

File  D  pushes  mcif plot  to  the  upper  limit  of  its  capa¬ 
bilities.  It  is  a  large  pla  generated  by  the  VLSI  design 
tool  mkpla.  It  is  similar  is  size  to  file  C,  but  contains 
over  800  Call  Commands.  It  illustrates  two  limits  of  mcif- 
plot.  First,  the  output  PLOT  file  is  incomplete  and  the 
program  aborted  when  the  disk  was  filled  (186K).  The  PLOT 
file  could  still  be  printed  with  PLOT.COM,  but  the  resulting 
check  plot  is  obviously  incomplete. 

The  other  limitation  is  the  extended  execution  time 
required  to  process  the  hundreds  of  Call  Commands.  Each  Call 
results  in  a  least  one  random  access  to  disk.  This  results 
in  extreme  disk  activity  and  really  increases  the  execution 
time  of  the  program.  Because  of  the  limited  amount  of  memory 
available  in  CPM  based  microcomputers,  the  program  must  rely 
on  the  disk  for  storage.  This  results  in  much  of  the  execu¬ 
tion  time  of  the  program  being  spent  doing  disk  I/O.  mcif- 
plot ’s  dependence  on  the  disk  for  temporary  storage,  and  the 
requirement  to  access  symbols  on  the  disk  during  creation  of 
the  PLOT  file,  restricts  its  practical  use  to  CIF  files  with 
a  limited  number  of  Call  Commands. 

The  example  check  plots  in  Appendix  G  provide  a  good 
side  by  side  comparison  of  the  quality  of  the  output  of 
mcif plot  and  cif plot.  The  format  of  cif plot  vs.  mcif plot  is 
very  similar  and  the  CIF  bounds  produced  by  both  are  identi¬ 
cal  (with  the  exception  of  those  files  which  contain  Wire 
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Commands  -  cif plot  incorrectly  determines  the  bounds  of  CIF 
Wire  Commands).  The  biggest  difference  is  the  resolution  of 
the  printers  used  for  the  plots.  The  Versetec  V-80-OP  has  a 
200  dots/inch  resolution  vs.  the  72  dots/inch  resolution  of 
the  Okidata  92  (typical  of  the  printers  that  are  interfaced 
to  PLOT.COM).  Even  with  the  difference  in  resolution,  the 
similarities  are  striking  between  the  two  types  of  plots. 

mcifplot  Status 

In  order  to  compile  and  assemble  the  program  efficient¬ 
ly,  it  was  divided  into  five  sections.  MAIN.C  contains  all 
the  constant  and  structure  definitions,  as  well  as  the  main 
procedure.  It  was  always  included  when  compiling  the  other 
sections.  Stubs  were  built  into  INTCOM.C,  PARSECIF.C,  and 
BLDFILE.C  to  allow  them  to  be  executed  and  tested  separate¬ 
ly.  Statistics  about  the  size  and  composition  of  the  sec¬ 
tions  are  given  in  Table  V-2. 


Table  V-2  mcifplot  Divisions  and  Composition 


File 

Size (K) 

Lines  Code 

%  Code 

MAIN.C 

6.3 

180 

66.7 

INTCOM.C 

26.5 

709 

54.9 

PARSECIF.C 

37.4 

813 

44.7 

BLDFILE.C 

31.7 

515 

38.2 

MCIFPLOT.C 

22.0 

456 

46.4 

VI.  Conclusions  and  Recommendations 


Conclusions 

The  program  mcif plot  successfully  implements  a  micro¬ 
computer  based  tool  for  printing  check  plots  of  CIF  files. 
In  general,  the  program  meets  all  functional  requirements 
and  exceeds  performance  expectations.  Before  the  implementa¬ 
tion  of  mcif plot  began,  it  appeared  likely  that  a  program  of 
this  nature  was  feasible  on  a  microcomputer.  However,  there 
was  still  some  uncertainty  about  the  size  of  the  final 
program  and  its  execution  speed.  The  finished  program  not 
only  is  contained  in  a  single  executable  unit,  but  also 
processed  MSI  and  SSI  circuit  descriptions  well  within  the 
expected  execution  times. 

The  different  design  tools  currently  used  for  inte¬ 
grated  circuit  design  impose  varying  types  of  demands  on  the 
computer  on  which  they  execute.  Even  so,  some  general  con¬ 
clusions  can  be  drawn  from  the  successful  implementation  of 
mcif plot.  It  is  clear  though,  that  additional  information  is 
required  to  determine  to  what  extent  existing  microcomputers 
can  be  used  for  integrated  circuit  design.  This  information 
could  be  obtained  from  a  theoretical  study  of  the  perfor¬ 
mance  requirements  of  CAD  design  tools  vs.  that  provided  by 
the  microcomputer.  Information  could  also  be  learned  from 
the  implementation  of  additional  design  tools  in  the  micro¬ 
computer  environment. 
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The  performance  of  mcif plot  probably  provides  a  fairly 
accurate  picture  of  how  other  design  tools  are  likely  to 
perform  in  the  microcomputer  environment.  Design  tools  for 
circuit  simulation  and  design  rule  checking,  as  well  as 
other  functions,  should  prove  useful  and  can  be  expected  to 
operate  successfully  on  circuits  ranging  in  density  from  SSI 
to  MSI.  Of  course,  the  tools  must  be  designed  carefully  to 
maximize  execution  speed  and  minimize  use  of  memory  and  disk 
space.  As  the  cost/performance  ratio  of  microcomputers  in¬ 
creases  yearly,  the  performance  limits  of  microcomputer 
based  tools  will  also  increase. 


Recommendations 


Recommendations  are  discussed  in  three  different  areas. 
First,  recommendations  are  given  for  ways  to  improve  mcif- 
plot  in  both  function  and  performance.  Next,  suggestions  for 
implementation  of  a  check  plot  program  on  other  microcompu¬ 
ters  are  discussed.  The  final  set  of  recommendations  con¬ 
cerns  the  implementation  of  other  design  tools  on  micro¬ 
computers  . 

mcif plot  meets  the  design  goals  and  requirements  de¬ 
fined  in  Chapter  II.  These  requirements  were  of  necessity  a 
subset  of  cifplot's  function  and  options.  It  may  be  desired 
to  expand  and  improve  the  function  and/or  performance  of 


mcifplot. 


There  are  many  desired  functional  requirements  in  Chap¬ 
ter  two  which  were  not  implemented.  Most  concern  compatibi- 
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lity  with  the  function  of  cif plot,  but  would  still  add 
capabilities  that  would  probably  be  useful  in  certain  cir¬ 
cumstances  for  mcif plot's  environment.  The  following  fea¬ 
tures  are  suggested  to  improve  the  compatibility  and  utility 
of  the  program: 

1)  Allow  processing  of  CIF  commands  in  non-Manhattan 
directions.  The  biggest  difficulty  with  implementation  of 
this  feature  is  the  more  complex  clipping  and  fill  algori¬ 
thms  required.  Changes  would  also  be  required  in  the  way  the 
program  determines  the  bounds  of  geometric  elements. 

2)  Implement  the  CIF  Poly  Command  and  the  Delete  Defi¬ 
nition  Command.  This  item,  along  with  item  number  1,  will 
allow  mcif plot  to  accept  all  standard  CIF  2.0  commands. 

3)  Implement  additional  User  Extensions  defined  in  the 
cif plot  manual:  Extension  0  and  Extension  2. 

4)  Implement  additional  options  defined  in  the  cif plot 
manual:  copy.  List,  approximate,  and  a  cif plot  format  PAT¬ 
TERN  file.  Also  implement  multiple  strip  plotting  as  speci¬ 
fied  by  the  scale  option.  The  grid  option  should  label  the 
grid  lines  in  CIF  units. 

5)  Allow  processing  of  multiple  input  CIF  files. 

In  addition  to  functional  capabilities,  the  performance 
of  mcif plot  can  be  improved  in  several  ways: 

1)  The  program  should  be  divided  into  two  or  more 
executable  modules  which  are  chained  together.  This  would 
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allow  room  for  a  larger  Symbol  Table  and  the  implementation 
of  the  new  functional  capabilities  listed  above. 

2)  This  additional  room  should  also  be  used  to  imple¬ 
ment  the  one  item  which  will  produce  the  most  dramatic 
improvement  in  execution  speed:  input  file  buffers.  Since 
the  program  does  a  random  access  to  disk  at  least  once  for 
every  Call  Command  encountered  in  a  symbol,  the  implementa¬ 
tion  of  multiple  input  buffers  would  allow  much  of  the  time 
required  for  this  random  access  to  be  eliminated.  A  random 
access  to  disk  would  only  be  required  when  the  data  in  an 
input  buffer  was  exhausted. 

3)  Those  procedures  which  require  the  major  amount  of 
execution  should  be  examined  for  efficiency.  If  possible  the 
algorithm  or  C  code  should  be  made  more  efficient.  Another 
alternative  would  be  to  convert  the  procedure  to  assembly 
language . 

The  cost/performance  ratio  of  microcomputers  is  increa¬ 
sing  at  an  amazingly  rapid  pace.  Low  cost  microcomputers 
(i.e.  less  than  $5000)  are  available  which  have  greatly 
expanded  memory  as  well  as  high  resolution  graphics  termi¬ 
nals.  The  implementation  of  mcif plot  on  one  of  these  new 
microcomputers  would  allow  several  advantages  in  performance 
and  capability. 

The  availability  of  more  memory  would  allow  a  dramatic 
improvement  in  execution  speed.  The  input  CIF  file  could  be 
converted  into  a  more  compact  format  and  stored  in  memory  as 
it  is  read  and  parsed.  This  would  eliminate  the  requirement 
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to  convert  a  CIF  command  from  ASCII  representation  to  an 
internal  machine  representation  (long  integers)  each  time  it 
is  encountered  in  a  CIF  symbol.  With  mcif plot,  for  example, 
a  Box  Command  in  a  particular  symbol  has  to  be  interpreted 
each  time  the  symbol  is  called.  This  involves  up  to  six 
ASCII  to  integer  conversions  and  the  calculation  of  the  four 
corners  of  the  box.  The  addition  of  more  memory  would  allow 
the  Box  Command  to  be  stored  internally  as  a  one  character 
identifier  and  four  floating  point  numbers  which  represent 
the  scaled  coordinates  of  the  box  lower  left  and  upper  right 
corners . 

Of  course,  if  the  CIF  file  was  converted  and  stored 
internally,  the  problem  with  slow  random  disk  access  to  the 
CIF  file  during  creation  of  the  PLOT  file  would  be  elimi¬ 
nated.  Even  the  output  PLOT  file  could  be  written  to  a  large 
internal  buffer  and  written  to  disk  at  a  much  faster  rate. 

Finally,  the  utility  of  the  check  plotting  program 
could  be  enhanced  if  its  output  could  be  directed  to  a  high 
resolution  graphics  display.  The  resolution  of  the  terminals 
of  some  low  cost  microcomputers  is  similar  to  the  resolution 
available  on  most  printers  that  are  driven  by  PLOT.COM.  If  a 
new  driver  was  written  for  PLOT.COM,  check  plots  could  be 
quickly  displayed  on  the  graphics  terminal  using  an  input 
PLOT  file  in  the  same  format  as  was  used  to  create  a  printed 
check  plot.  The  biggest  advantage  to  this  feature  would  be 
that  check  plots  would  be  available  in  much  less  time.  This 
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would  be  especially  useful  for  checking  the  placement  of 
wiring  connections. 

In  addition  to  enhancements  to  mcif plot,  it  is  recom¬ 
mended  that  additional  design  tools  be  implemented  in  the 
microcomputer  environment.  Used  together,  these  tools  would 
truly  allow  small  scale  (MSI  or  less  in  complexity)  inte¬ 
grated  circuits  to  be  completely  designed  on  a  low  cost 
microcomputer.  At  a  minimum,  three  additional  tools  would  be 
required : 

1)  A  high  level  layout  language  such  as  that  inter¬ 
preted  by  the  Stanford  design  tool  cl  1. 

2)  A  program  to  perform  design  rule  checking  on  an 
input  Cl F  file. 

3)  A  program  to  do  switch  level  simulations  of  the 
circuit  function. 
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TYPE:  FILE 

DATE:  30  May  1984 

NAME:  CADRC 

DESCRIPTION:  The  CADRC  file  contains  additional  options 
which  are  included  with  the  command  line  op¬ 
tions  as  input  to  VLSI  design  tools.  The  op¬ 
tions  for  a  particular  program  are  on  a  single 
line  which  begins  with  the  name  of  that  pro¬ 
gram.  These  options  are  always  executed.  For 
example : 

mcif plot  -1  bbox  -p  CMOSPAT.STI 

LOCATION:  Always  on  drive  A:  or  the  same  drive  as  the 

program  executed. 

DATA  CHARACTERISTICS:  text  file 


TYPE:  DATA  ELEMENT 

DATE:  18  JUN  1984 

NAME:  CADRC  Options 

DESCRIPTION:  These  are  options  which  were  obtained  from  the 
CADRC  file.  The  options  are  used  to  control  the 
functions  of  the  other  program  modules  and  are 
identical  in  format  to  the  options  obtained 
from  the  Command  Line. 

SOURCES:  A12 

DESTINATIONS:  A13 

COMPOSITION:  The  data  is  composed  of  two  parameters: 

CADRC  Number  -  the  number  of  words  in  the  CADRC 
File  line  which  starts  with  the  word  "mcif- 
plot".  If  equal  to  0  or  1  then  there  are  no 
options . 

CADRC  Array  -  an  array  of  pointers  which  point 
to  the  location  of  the  option  words  in  memory. 
Element  [0]  is  "mcifplot".  Element  [Cadre  Num¬ 
ber  -  1]  is  the  last  element. 

PART  OF:  N/A 

DATA  CHARACTERISTICS:  CADRC  Number  -  integer 

Cadre  Array  -  array  of  pointers,  it  is  dimen¬ 
sioned  dynamically  up  to  a  maximum  of  CADRC 
Buffer  pointers. 

VALUES:  CADRC  Number  :  integer  0  -  CADRC  Buffer 
CADRC  Array  :  Array  [CADRC  Buffer] 
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Appendix  B.  SADT  Data  Dictionary 


To  conserve  space,  more  than  one  Data  Element  is  listed 
on  each  page.  The  following  Data  Elements  are  included  in 
the  Dictionary  in  alphabetical  order. 


DATA  ELEMENTS: 


CADRC  File 

CADRC  Options 

Call  Commands 

CIF  Command 

Cl F  File 

CIF  File  Table 

Command  Line 

Control  Variables 

Default  Control  Values 

Default  Control  Variables 

Error  Messages 

Error  Number 

Executable  Commands 

EXECUTABLE  File 

Fatal  Error 

File  Table 

Formatted  Error  Messages 
Geometric  Commands 
Line  Number 
MESSAGE  File 

Modified  Control  Variables 

PATTERN  File 

PLOT  File 

Plot  Page 

Scaling  Factors 

Special  Control  Options 

Symbol  Table 

Symbol  Data 

Translated  Executable  Commands 
User  Answer 
User  Prompt 
User  Query 


MC I FPLOT (1.0) 


Microcomputer  CAD  Tools  Manual 


MCI FPLOT (1.0) 


#  522  Maximum  CIF  command  line  length  exceeded 

CIF  commands  are  limited  to  161  characters  in  length  to 
reduce  the  space  required  in  the  program  for  character 
buffers . 

#  525  Wire  defined  with  only  one  point 


Warnings 

#  1001  User  Extension  2  detected  -  ignored 

#  1002  'name'  is  number  in  User  Extension  9 

#  1003  nonblank  characters  encountered  after  End  Command 

This  may  mean  the  input  CIF  file  has  an  unexpected  End 
command  in  the  middle  of  it  or  a  character  will  produce 
this  error.  Standard  CIF  has  no  characters  after  the  End 
command . 

#  1004  this  symbol  was  previously  defined 

A  symbol  with  the  same  number  was  defined  previously.  It 
will  be  ignored. 

#  1005  User  Extension  '9'  outside  of  symbol  -  ignored 

#  1006  User  Extension  detected  -  ignored 

The  -e  option  is  in  use. 

#  1007  Poly  Command  detected  -  ignored 

#  1008  User  Extension  '9'  repeated  in  symbol  -  ignored 

#  2000  Grid  spacing  smaller  than  minimum  line  resolution-grid  inhibited 

A  grid  has  been  specified  so  small  that  the  check  plot  will 
be  black. 

#  2001  Plot  bounds  exceed  legal  CIF-number  range 

#  3000  Symbol  tracing  exceeds  available  memory-ignored  this  symbol  call 

The  output  PLOT  file  is  still  written,  but  the  call  to  this 
symbol  is  ignored. 

#  3001  Nested  calls  to  deep  -  ignored  call  to  this  symbol 

The  output  PLOT  file  is  still  written,  but  the  call  to  this 
symbol  is  ignored. 

Memory  allocation  errors  (not  displayed) 

These  errors  are  not  displayed  as  text  because  if  memory  is 
exhausted,  there  is  not  enough  room  to  read  in  the  error 
number  list  from  the  MESSAGE.BIN  file. 

5001  Symbol  Table  allocation 

Out  of  memory  when  trying  to  add  an  entry  to  the  symbol 
table . 

5002  dynamic  memory  allocation 

5003  file  structure  allocation 

Out  of  memory  when  trying  to  allocate  a  file  structure  when 
opening  a  file. 

5004  pattern  string  allocation 

Out  of  memory  when  trying  to  allocate  a  buffer  for  the  input 
of  patterns  from  the  PATTERN  file. 
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MCI FPLOT (1.0)  Microcomputer  CAD  Tools  Manual  MCI FPLOT ( 1 . 0 ) 

Is  this  a  cifplot  option? 

#  102  < —  unable  to  open  file 

#  103  < —  recursion  detected  in  this  symbol 

This  symbol  calls  itself  or  another  symbol  which  eventually 
ends  up  calling  this  one. 

#  104  < —  pages  required  for  plot  -  maximum  limit  exceeded 

mcifplot  will  not  process  a  plot  that  is  more  than  20  pages 
long . 

#  105  < —  non-standard  or  illegal  CPM  file  name 

#  106  < —  input  CIF  file  with  .VEC  extension  is  not  allowed 

The  default  extension  for  the  output  PLOT  file  is  ".VEC".  An 
input  CIF  file  with  the  ".VEC"  extension  would  be  overwrit¬ 
ten  . 

#  107  < —  transfer  program  not  found 

#  200  Delete  Definition  Command  not  supported 

#  201  DF  Command  encountered  outside  of  Symbol  Definition 

#  202  DS  Command  encountered  inside  Symbol  Definition 

#  203  End  Command  encountered  inside  Symbol  Definition 

#  300  Fatal  error:  call  to  undefined  symbol 

This  symbol  was  never  defined. 


Runtime  Errors 

#  500  mcifplot  does  not  support  User  Extension  'O' 

#  501  Unknown  command 

#  502  No  layer  specified  for  command 

All  geometric  commands  must  have  a  layer  specified  before 
they  are  listed. 

#  503  Unknown  Command  or  User  Extension 

#  504  Incomplete  command 

#  505  Unknown  layer 

This  layer  is  not  one  of  the  15  layer  names  specified  by 
default  or  the  -P  option. 

#  506  Can  not  read  integer 

#  507  Unexpected  signed  integer 

#  508  CIF-number  out  of  range:  -16 , 777 , 2 15<=CI F-number<  =  16 , 777 , 2 15 

#  509  Symbol  number  out  of  range  1  -  16,777,215 

#  511  Scale  value  equals  0 

#  512  Only  one  scale  value  found 

Is  the  DS  command  in  the  form  DS  100  A :  B;  where  the  optional 
A : B  specifies  the  scale? 

#  513  Non-Manhattan  direction  detected 

#  514  Calculation  of  bounds  exceeds  legal  CIF-number  range 

It  is  possible  for  commands  with  legal  CIF  numbers  to  exceed 
the  maximum  range  for  legal  CIF  numbers  when  their  bounds 
are  determined. 

#  515  Unable  to  read  point 

#  517  Unable  to  read  transformation 

#  519  Unknown  transformation 

#  520  Non-Manhattan  rotation  detected 
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ERROR  MESSAGES 

The  error  messages  in  mcifplot  are  intended  to  be  self 
explanatory.  However,  some  additional  information  is  given 
with  certain  error  messages  to  clarify  the  intended  meaning. 
The  numbers  associated  with  the  error  messages  are  only 
required  if  the  file  MESSAGES.BIN  is  not  used  when  executing 
mcifplot.  In  that  case,  the  appropriate  error  message  asso¬ 
ciated  with  a  given  error  number  can  be  found  from  the 
following  list.  Option  specification  errors  are  reported  in 
the  same  format  for  both  the  command  line  and  CADRC  file. 
Remember  to  check  the  CADRC  file  if  mysterious  option  errors 
occur  that  are  not  in  the  command  line. 


Fatal  Errors 

#  1  Usage:  mcifplot  [options]  filename. cif 

#  2  usage:  mcifplot  -g  CIF-number  filename. cif  [  CIF-number  >  0  ] 

#  3  error:  CIF-number  out  of  range:  -16 , 777 , 215<=CIF-number< =16 , 777 , 215 

#  4  usage:  mcifplot  -d  CIF-number  filename. cif  [  CIF-number  >  0  ] 

#  5  usage:  mcifplot  -s  floating-point-number  filename. cif 

#  6  error:  xmin  must  be  less  than  xmax 

#  7  error:  ymin  must  be  less  than  ymax 

#  8  usage:  mcifplot  -w  xmin  xmax  ymin  ymax  filename. cif 

#  9  Fatal  error:  unable  to  open  EXECOM.TMP,  check  disk  space 

There  is  no  room  to  write  the  temporary  file  on  disk. 

#  10  Fatal  error:  Comment  Command  not  closed,  EOF  encountered 

#  11  error:  layer  name  "text"  refers  to  unsupported  User  Extension  2 

#  12  Fatal  error:  EOF  encountered  in  Symbol  Definition 

#  13  Fatal  error:  EOF  encountered  before  End  Command 

#  14  Fatal  error:  could  not  read  line  in  pattern  file 

There  is  a  problem  with  reading  a  line  in  the  pattern  file. 

#  15  Fatal  error:  output  disk  full,  cannot  complete  PLOT  file 

The  PLOT  file  can  still  be  plotted  using  PLOT.COM,  however 
it  will  not  be  a  complete  check  plot  as  described  by  the 
input  CIF  file. 

#  16  Fatal  error:  output  disk  full,  cannot  complete  EXECUTABLE  file 

The  temporary  file  could  not  be  completed.  This  error  might 
happen  if  there  is  a  large  input  CIF  file  with  no  symbols. 

#  17  Fatal  error:  incorrect  format  in  pattern  file 

Make  sure  the  format  matches  the  one  defined  in  the  -p 
option  described  above  and  colors  are  in  the  range  0  -  127. 

#  18  nothing  to  plot  (CIF  file  has  symbol  definitions  without  calls) 

#  19  Previous  errors  prevent  building  PLOT  file 

mcifplot  will  continue  to  parse  the  input  file  as  long  as  it 
can  recover  from  errors.  This  error  usually  occurs  when  a 
layer  specification  is  incorrect,  thus  the  stipple  pattern 
to  use  for  a  particular  layer  is  unknown. 

#  100  <--  no  such  layer 

#  101  <--  unknown  or  unsupported  option 
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12)  mcifplot  has  the  following  15  layers  names  and  PLOT.COM 
colors  built  in  as  defaults: 


ND 

49 

N I 

50 

NP 

51 

NC 

52 

NM 

53 

NB 

54 

NG 

55 

CW 

56 

CD 

57 

CP 

58 

CS 

59 

CC 

60 

CM 

61 

CG 

62 

CE 

63 

These 

layer 

names 

and/or 

colors 

can  be 

modified 

with 

option  if  desired. 

13)  There  are  several  differences  in  the  options  allowed  in 
mcifplot  and  cifplot.  These  options  are  summarized  in  the 
table  below.  Although  the  mcifplot  options  are  listed  in 
both  lower  and  upper  case  letters  in  order  to  have  a  similar 
format  as  cifplot's  options,  all  options  are  interpreted  as 
upper  case  letters  in  the  command  line  and  CADRC  file. 

cif plot/mcif plot  Options 


cifplot 

Option 

Status 

mcifplot 

Option 

Option 

Name 

Option 

Name 

a 

approximate 

N I 

- 

— 

b 

banner 

I 

b 

banner 

c 

copies 

N I 

- 

- 

C 

Comments 

I 

C 

comments 

d 

depth 

I 

d 

depth 

F 

Font 

N I 

- 

g 

grid 

I 

g 

grid 

Ga/t 

Graphics  term 

NI 

- 

- 

h 

half  resolut. 

NI 

- 

- 

I 

interactive 

I 

i 

interactive 

1 

layer 

I 

l 

layer 

- 

- 

I* 

m 

make  page 

- 

- 

I* 

n 

notify 

0 

Output 

NI 

- 

- 

- 

- 

I* 

o 

output 

p 

Pattern 

I 

P 

pattern 

- 

- 

I* 

q 

quiet 

r 

rotate 

I 

r 

rotate 

s 

scale 

I 

s 

scale 

S 

Spool 

NI 

- 

- 

T 

Terminal 

NI 

- 

- 

- 

- 

I  * 

t 

transfer 

V 

Varian 

NI 

- 

- 

w 

window 

I 

w 

window 

W 

Wide 

NI 

- 

- 

X 

extractor 

NI 

- 

— 

N I  =  Not 

Implemented 

I  =  Implemented 

*  =  options  unique  to  mcifplot 
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to  clarify  its  dimensions.  With  cifplot,  if  two  geometric 
features  on  the  same  layer  intersect  (for  example,  when  two 
wires  overlap)  they  are  outlined  only  on  the  outside  of  the 
overlapping  regions.  With  mcifplot,  the  commands  for  each 
geometric  feature  will  be  generated  as  it  is  encountered  in 
the  CIF  file.  This  will  cause  the  outlines  of  overlapping 
regions  to  intersect  and  will  slightly  degrade  the  clarity 
of  the  the  check  plot.  Of  course,  the  outlines  can  be  elimi¬ 
nated  with  a  '-1'  command  line  option. 

9)  The  maximum  number  of  symbols  in  an  input  CIF  file  is 
limited  by  the  size  of  the  CPM  TPA.  A  Symbol  Table  is  built 
in  memory  with  an  entry  for  each  symbol  in  the  CIF  file 
during  execution  of  the  program,  mcifplot  requires  approxi¬ 
mately  42K  of  the  TPA  for  the  program  itself.  Each  entry  in 
the  symbol  table  requires  28  bytes.  The  maximum  number  of 
symbols  which  can  be  placed  in  the  symbol  table  depends  on 
the  unused  space  in  the  CPM  TPA.  This  limitation  should 
normally  affect  only  unusually  small  TPA's  or  CIF  files  with 
more  than  300  different  symbols.  If  mcifplot  runs  out  of 
memory  for  the  Symbol  Table  a  fatal  error  is  generated. 

10)  The  depth  of  nesting  of  symbols  (i.e.  symbols  that  call 
another  symbol)  is  also  limited  by  the  size  the  CPM  TPA. 
Each  nested  symbol  generates  a  recursive  procedure  call 
which  causes  the  stack  to  grow  down  from  upper  memory  toward 
the  program  area  by  approximately  100  bytes.  It  is  possible 
with  a  small  TPA,  a  large  symbol  table,  and  symbols  nested 
unusually  (to  a  depth  of  100  or  more)  for  the  stack  to  grow 
too  close  to  the  dynamically  allocated  symbol  table.  If  this 
happens,  mcifplot  will  issue  a  warning  message  and  ignore 
symbols  that  are  nested  too  deep. 

11)  There  is  also  a  practical  limitation  to  the  size  of  an 
input  CIF  file  that  can  be  processed,  mcifplot  does  a  random 
access  to  disk  at  least  once  for  every  Call  Command  proces¬ 
sed.  If  multiple  pages  are  required  for  the  plot,  the  file 
may  have  to  be  processed  again  for  each  page  of  output.  With 
CIF  files  which  contain  hundreds  of  Call  Commands,  the 
execution  time  of  the  program  could  easily  stretch  to  hours 
in  length.  Probably  before  the  long  execution  time  is  a 
problem  though,  the  output  PLOT  file  will  fill  the  available 
disk  space  and  mcifplot  will  gracefully  abort.  The  reason 
for  this  is  that  the  output  PLOT  file  is  not  hierarchically 
structured  like  most  CIF  files  with  symbols.  Each  time  a 
symbol  is  called  in  a  CIF  file,  the  low  level  commands  to 
plot  it  (lines  and  fills)  are  written  to  the  PLOT  file.  For 
example,  a  single  call  to  symbol  4  may  require  2K  of  low 
level  commands  to  be  written  to  the  PLOT  file.  If  this 
symbol  is  called  100  times  in  the  CIF  file,  then  200K  of  low 
level  commands  will  be  required  in  the  PLOT  file. 
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1)  A  check  plot  is  not  automatically  produced  by  mcifplot. 
The  public  domain  program  PLOT.COM  must  be  executed  either 
directly  on  the  output  file  or  indirectly  by  use  of  the  -t 
option  described  above  to  obtain  a  check  plot. 

2)  Non-Manhattan  directions  in  commands  or  symbols  are  not 
supported . 

3)  CIF  Poly  and  Delete  Definition  commands  are  not  suppor¬ 
ted  . 

4)  The  Wire  and  Roundfiash  Commands  are  approximated  with 
boxes.  It  should  be  noted  that  cifplot  does  not  correctly 
determine  the  bounds  of  Wire  Commands.  For  the  Wire  state¬ 
ment 

Wire  20000  10000,10000  10000,100000; 
cifplot  will  return  bounds  of 
-823  20823  -823  110823 
rather  than  the  correct  bounds  of 


0  20000  0  110000 

This  may  result  in  differences  in  the  plot  window  displayed 
by  the  two  programs  when  interpreting  CIF  files  which  con¬ 
tain  Wire  Commands. 


5)  Multiple  input  CIF  files  are  not  supported. 

6)  User  Extensions  0  and  2  are  not  supported.  The  layer  name 
in  User  Extension  94  is  ignored. 

7)  The  integers  in  CIF  files  are  limited  to  the  range 

-16,777,215  <=  integer  <=  16,777,215 

as  defined  in  A  Guide  to  LSI  Implementation,  Hon  and  Sequin, 
Second  Edition  (Xerox  PARC,  1980).  Numbers  are  stored  inter¬ 
nally  as  long  integers.  When  odd  numbers  are  divided,  the 
result  is  truncated  to  the  lower  integer  value.  This  some¬ 
times  presents  accuracy  problems  when  working  with  small  CIF 
numbers  (less  than  100). 

8)  The  outlines  of  two  or  more  geometric  elements  on  the 
same  layer  will  intersect  if  located  together.  The  standard 
mode  of  operation  for  cifplot  is  to  outline  the  outside  of 
each  layer  with  a  black  line.  Thus,  a  rectangle  is  normally 
drawn  with  a  rectangular  region  of  a  particular  stipple 
pattern  and  then  this  region  is  outlined  with  a  black  line 
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fers  control  to  filename  with  the  name  of  the  output  PLOT 
file  as  input.  A  default  extension  of  ".COM"  is  assumed  for 
filename  if  no  extension  is  specified.  The  most  useful 
choice  for  filename  is  the  current  version  of  PLOT.COM. 

-q 

(quiet)  Status  messages  are  normally  displayed  for  every 
100  lines  read  from  the  CIF  file,  every  25  Call  Commands 
processed  for  determining  plot  bounds,  and  for  every  2K 
written  to  the  output  PLOT  file.  The  bell  is  also  rung  when 
plot  bounds  have  been  determined  and  when  program  execution 
is  complete.  The  quiet  option  inhibits  displaying  status 
messages  on  the  standard  output  so  that  mcifplot  executes  in 
the  same  manner  as  cifplot. 

-m 

(make  page)  Forces  the  x  dimension  to  one  page  or  less  in 
length,  and  rescales  the  y  dimension  if  required.  Adds  a 
border  of  white  space  around  the  plot.  Useful  for  making  one 
page  plots  for  reports  or  slides. 


In  the  definition  of  CIF  provisions  were  made  for  local 
extensions.  All  extension  commands  begin  with  a  number. 
Part  of  the  purpose  of  these  extensions  is  to  test  what 
features  would  be  suitable  to  include  as  part  of  the  stan¬ 
dard  language.  But  it  is  important  to  realize  that  these 
extensions  are  not  standard  CIF  and  that  many  programs 
interpreting  CIF  do  not  recognize  them.  The  following  is 
list  of  extensions  recognized  by  mcifplot: 

1  message; 

(Print)  Print  out  the  message  on  standard  output  when 
it  is  read. 

9  name ; 

(Name  symbol)  name  is  associated  with  the  current  sym¬ 
bol  . 

94  name  x  y; 

(Name  point)  name  is  associated  with  the  point  (x,  y)  . 
The  name  is  printed  at  the  specified  point  on  the  plot. 
Name  must  not  have  any  spaces  in  it,  and  it  should  not 
be  a  number. 


MCI FPLOT/CI FPLOT  DIFFERENCES 

The  following  list  summarizes  the  functional  differences 
between  mcifplot  and  cifplot.  the  performance  limitations  of 
mcifplot  are  also  discussed. 
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(I.e.  the  comments  may  appear  in  the  middle  of  a  CIF  command 
or  the  comment  does  not  end  with  a  semicolon.)  Of  course, 
CIF  files  should  not  have  any  errors  and  these  comment 
related  errors  must  be  fixed  before  transmitting  the  file 
for  fabrication.  But  many  times  fixing  these  errors  seems 
to  be  more  trouble  than  it  is  worth,  especially  if  you  just 
want  to  get  a  plot.  This  option  is  useful  in  getting  rid  of 
many  of  these  comment  related  syntax  errors. 


-r 

(rotate)  Rotate  the  plot  90  degrees. 

-P  pattern_file 

(Pattern)  The  -P  option  lets  you  specify  your  own  layers  and 
PLOT.COM  colors  from  among  the  127  available  (see  the  docu¬ 
mentation  for  PLOT.COM).  The  pattern_file  must  have  a  legal 
CPM  file  name.  When  a  pattern_file  is  specified,  the  default 
mcifplot  layers  and  their  corresponding  PLOT.COM  "colors" 
are  erased  and  replaced  with  the  new  layers  and  colors.  A 
maximum  of  15  layers  can  be  specified.  CIF  layer  names  and 
PL0T.C0M  colors  must  be  legal  for  their  respective  environ¬ 
ments.  The  format  of  pattern_file  requires  the  character  "1" 
as  the  first  character  in  the  file  on  the  first  line.  It  is 
followed  by  a  list  of  layer  names  and  a  corresponding 
PLOT.COM  color  with  a  decimal  value  from  0  to  127.  One  layer 
is  specified  per  line  and  lines  that  begin  with  are  ig¬ 
nored.  For  example: 

1 

;  example  pattern  file  of  format  1 
NP  27 
NC  13 
NB  127 

-o  output_file 

(output)  The  output  PLOT  file  is  written  to  the  file  named 
output_file.  Normally  the  output  PLOT  file  is  written  to  a 
file  on  the  same  drive,  with  same  name  as  the  input  CIF  file 
and  a  ".VEC"  extension.  This  option  allows  the  specification 
of  a  new  name  or  drive.  output_file  must  be  a  legal  CPM  file 
name . 


-n 

(notify)  Displays  status  of  program  option  defaults  and  new 
options  specified  from  the  command  line  or  CADRC  file  on  the 
standard  output.  Also  provides  diagnostics  concerning  the 
number  of  commands  and  symbols  in  the  input  CIF  file.  The 
output  can  be  redirected  to  a  file  for  a  saved  copy  if 
desired . 

-t  filename 

(transfer)  After  execution  of  mcifplot  is  complete,  trans- 
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fault  the  scale  is  set  so  that  the  window  will  fill  the 
whole  page  in  the  y  dimension.  The  scale  option  takes  prece¬ 
dence  over  the  window  option.  If  a  scale  is  specified  along 
with  a  window  that  will  exceed  the  paper  width  in  the  y 
dimension,  then  the  window  value  is  truncated  to  fit  the 
page.  No  multiple  strips  are  generated.  Float  is  a  floating 
point  number  specifying  the  number  of  inches  which  repre¬ 
sents  1  micron. 

-1  layer_list 

(layer)  Normally  all  layers  are  plotted.  The  -1  option 
specifies  which  layers  NOT  to  plot.  The  layer_list  consists 
of  the  layer  names  separated  by  commas,  no  spaces.  There 
are  some  reserved  names:  allText,  bbox,  outline,  pointName, 
and  symbolName.  Including  the  layer  name  allText  in  the 
list  suppresses  the  plotting  of  text;  bbox  suppresses  the 
bounding  box  around  symbols.  outline  suppresses  the  thin 
outline  that  borders  each  layer.  The  keywords  pointName  and 
symbolName  suppress  the  plotting  of  certain  text  created  by 
local  extension  commands.  pointName  eliminates  text  created 
by  user  extension  94.  symbolName  eliminates  text  created  by 
user  extension  9.  allText,  pointName,  and  symbolName  may  be 
abbreviated  by  at,  pn,  and  sn  respectively. 

-d  n 

(depth)  This  option  lets  you  limit  the  amount  of  detail 
plotted  in  a  hierarchically  designed  chip.  It  will  only 
instanciate  the  plot  down  n  levels  of  calls.  Sometimes  too 
much  detail  can  hide  important  features  in  a  circuit.  The 
default  depth  value  of  20  (limited  to  prevent  stack  over¬ 
flow)  can  be  changed  with  this  option. 

-g  n 

(grid)  Draw  a  grid  over  the  plot  with  spacing  every  n  CIF 
units.  Grid  axes  are  not  labeled,  but  the  grid  spacing  is 
printed  at  the  top  of  the  plot. 


-e 

(extensions)  Accept  only  standard  CIF.  User  extensions  pro¬ 
duce  warnings. 

-I 

(non-Interactive)  Do  not  ask  for  confirmation.  Always  pro¬ 
duce  a  PLOT  file. 

-b  "text" 

(banner)  Print  the  text  at  the  top  of  the  plot. 

-C 

(Comments)  Treat  comments  as  though  they  were  spaces.  Some¬ 
times  CIF  files  created  at  other  universities  will  have 
several  errors  due  to  syntactically  incorrect  comments. 
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A>  mcifplot  pla.cif 
Version  1.0  10  November  1984 

Window  -5700  174000  -765000  168900 
Scale:  1  micron  is  0.004075  inches 
The  plot  will  be  0.610833  feet 
Do  you  want  a  plot?  y 

After  typing  y,  mcifplot  will  produce  an  output  PLOT  file 
which  can  be  plotted  by  PLOT.COM.  Or  if  the  -t  option  is 
used,  mcifplot  could  automatically  execute  PLOT.COM  upon 
completion  of  the  PLOT  file  to  produce  the  check  plot.  The 
text  output  of  mcifplot  which  is  normally  displayed  on  the 
terminal  can  be  redirected  to  a  file  as  follows: 

A>  mcifplot  -i  pla.cif  >filename 

There  should  be  no  space  between  the  ">"  and  the  output 
filename.  Error  messages  are  contained  in  a  file  called  MES¬ 
SAGE. BIN.  This  file  must  be  on  the  disk  from  which  mcifplot 
is  executed  for  the  text  of  the  error  messages  to  be  dis¬ 
played.  If  it  is  not  found,  only  error  numbers  will  be 
displayed . 

mcifplot  recognizes  several  command  line  options.  These  can 
be  used  to  change  the  size  and  scale  of  the  plot,  change 
default  plot  options,  and  to  select  the  name  and  drive  of 
the  output  file.  Several  options  may  be  selected.  A  dash(-) 
must  precede  each  option  specifier.  Options  may  also  be 
specified  in  a  file  named  CADRC  on  the  same  drive  as  that 
from  which  mcifplot  is  executed.  The  purpose  of  the  CADRC 
file  is  to  allow  a  user  to  specify  options  which  should 
always  be  used  with  mcifplot  without  having  to  repeatedly 
type  the  option  in  the  command  line,  mcifplot  checks  for  the 
existance  of  the  CADRC  file  and  looks  for  options  listed  on 
the  line  starting  with  the  word  "mcifplot".  These  options 
are  interpreted  in  the  same  way  as  command  line  options.  An 
example  line  in  the  CADRC  file  might  be: 

mcifplot  -t  PLOT.COM  -n  -1  bbox 

The  following  is  a  list  of  options  accepted  by  mcifplot: 

-w  xmin  xmax  ymin  ymax 

(window)  The  -w  options  specifies  the  window;  by  default  the 
window  is  set  to  be  large  enough  to  contain  the  entire  plot. 
The  windowing  commands  lets  you  plot  just  a  small  section  of 
your  chip,  enabling  you  to  see  it  in  better  detail.  Xmin, 
xmax,  ymin,  and  ymax  should  be  specified  in  CIF  coordinates. 

-s  float 

(scale)  The  -s  option  sets  the  scale  of  the  plot.  By  de- 
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NAME 

mcifplot  -  CIF  interpreter  and  plotter  for  displaying  LSI 
circuits 

SYNOPSIS 

mcifplot  [options]  filename. cif 
INTRODUCTION 

mcifplot  is  a  CPM  based  program  which  produces  check  plots 
on  a  dot  matrix  printer  using  the  public  domain  program 
PLOT.COM.  It  was  designed  to  operate  in  the  same  way  as  the 
Unix  based  VLSI  design  tool  cifplot  (written  by  Dan  Fitzpat¬ 
rick  at  Berkeley)  with  some  restrictions  imposed  due  to  the 
microcomputer  environment.  In  fact,  this  manual  is  derived 
from  the  manual  for  cifplot.  The  manual  is  divided  into 
three  sections.  Section  one  is  a  Unix  style  manual  on  how  to 
use  the  program  and  a  description  of  the  available  options. 
Section  two  describes  the  major  differences  between  mcifplot 
and  cifplot.  Section  three  lists  the  program  error  messages 
with  explainations  on  what  they  mean. 


DESCRIPTION 

mcifplot  takes  a  description  in  Cal-Tech  Intermediate  Form 
(CIF)  and  produces  an  output  PLOT  file  which  can  be  inter¬ 
preted  by  the  public  domain  program  PLOT.COM  to  produce  a 
check  plot.  CIF  is  a  low-level  graphics  language  suitable 
for  describing  integrated  circuit  layouts.  Although  CIF  can 
be  used  for  other  graphics  applications,  for  ease  of  discus¬ 
sion  it  will  be  assumed  that  CIF  is  used  to  describe  inte¬ 
grated  circuit  designs,  mcifplot  interprets  CIF  2.0  des¬ 
criptions  with  some  limitations.  The  CIF  Poly  and  Delete 
Definition  Commands  are  not  implemented.  In  addition,  mcif¬ 
plot  will  only  accept  Commands  which  describe  geometric 
elements  and  symbols  which  lie  in  Manhattan  directions  (i.e. 
parallel  to  x  or  y  axis)  There  are  also  restrictions  on  the 
size  and  complexity  of  the  input  CIF  file  which  are  imposed 
by  the  microcomputer  environment.  In  addition,  a  number  of 
local  extensions  have  been  added  to  CIF,  including  text  on 
plots.  These  are  discussed  later. 

To  get  a  plot,  call  mcifplot  with  the  name  of  a  CIF  file  (a 
default  option  of  ".CIF"  is  assumed)  to  be  plotted.  Multi¬ 
ple  input  CIF  files  are  not  supported.  After  reading  the  CIF 
description  but  before  producing  the  output  PLOT  file,  mcif¬ 
plot  will  print  an  estimate  of  the  size  of  the  plot  and  then 
ask  if  it  should  continue  to  execute.  Type  y  to  proceed  and 
anything  else  to  abort.  A  typical  run  might  look  as  fol¬ 
lows  : 
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TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  Call  Commands 

DESCRIPTION:  This  is  a  string  of  characters  which  contains  a 
"Call"  Command  from  the  Executable  CIF  File. 
The  last  character  will  always  be  a  semicolon. 

SOURCES:  A3  2 
DESTINATIONS:  A33 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  string  of  characters 
VALUES:  Any  legal  character  string 


TYPE:  FILE 
DATE:  31  May  1984 
NAME:  CIF 

DESCRIPTION:  The  CIF  file  is  the  main  input  to  mcifplot.  It 
contains  the  CIF  commands  that  are  read  to 
produce  the  output  PLOT  file  for  producing 
check  plots.  The  default  extension  is  .CIF  and 
the  file  should  not  have  an  extension  of  .VEC 
(this  extension  is  used  for  the  output  PLOT 
f  ile . 

LOCATION:  B:  or  drive  specified  in  command  line 
DATA  CHARACTERISTICS:  text  file 


TYPE:  DATA  ELEMENT 

DATE:  18  JUN  1984 

NAME:  Command  Line 

DESCRIPTION:  This  is  a  string  of  options  from  the  program 
command  line. 

SOURCES:  The  command  line  which  starts  program  execution 

(actually  the  CPM  OS). 

DESTINATIONS:  A13 

COMPOSITION:  The  data  is  composed  of  two  parameters: 

Option  Number  -  the  number  of  words  in  the 
command  line  0  or  1  then  their  are  no  options. 
Option  Array  -  an  array  of  pointers  which  point 
to  the  location  of  the  option  words  in  memory. 
Element  [0]  is  "mcifplot".  Element  [Option 
Number  -  1]  is  the  last  element. 

PART  OF:  N/A 

DATA  CHARACTERISTICS:  Option  Number  -  integer 

Option  Array  -  array  of  pointers,  it  is  dimen¬ 
sioned  dynamically. 

VALUES:  Option  Number  :  integer  >=  0 

Option  Array  :  Array  [CADRC  Number] 


TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  CIF  Commands 

DESCRIPTION:  Strings  of  characters  which  contain  a  single 
CIF  command. 

SOURCES:  A22 
DESTINATIONS:  A23 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  A  single  string  of  characters 
VALUES:  Any  legal  character  string 


TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  CIF  File  Table 

DESCRIPTION:  The  CIF  File  Table  is  a  group  of  parameters 
which  contain  specific  information  about  the 
input  CIF  file. 

SOURCES:  A21 
DESTINATIONS:  A22 
COMPOSITION:  See  File  Table 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  See  File  Table. 

VALUES:  Values  are  set  by  the  Command  line,  the  CADRC 

Options,  and  storage  pointers. 


TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  Control  Variables 

DESCRIPTION:  The  Control  Variables  are  variables  which  are 
set  to  default  values  or  are  modified  by  Com¬ 
mand  Line  or  CADRC  Options.  These  global  varia¬ 
bles  control  the  function  and  operation  of  the 
entire  program. 

SOURCES:  A12  /  A13  /  A14 
DESTINATIONS:  A2  /  A3  /  A4 

COMPOSITION:  The  composition.  Data  characteristics  and  De¬ 
fault  and  allowed  values  are  listed  in  the 
following  table  {for  implementation  in  the  C 
language) : 


Name 

Type 

Default  Val|  Range 

Window 

int 

FALSE 

TRUE  or  FALSE 

Xmin 

long 

INFINITY 

long 

Xmax 

long 

-INFINITY 

long 

Ymin 

long 

INFINITY 

long 

Ymax 

long 

-INFINITY 

long 

Scale 

int 

FALSE 

TRUE  or  FALSE 

Scale  Value 

float 

0 

float  >  0 

AllText 

int 

TRUE 

TRUE  or  FALSE 

BBox 

int 

TRUE 

TRUE  or  FALSE 

Outline 

int 

TRUE 

TRUE  or  FALSE 

Text 

int 

TRUE 

TRUE  or  FALSE 

PointName 

int 

TRUE 

TRUE  or  FALSE 

SymbolName 

int 

TRUE 

TRUE  or  FALSE 

Depth 

long 

INFINITY 

long  >  0 

Grid 

int 

FALSE 

TRUE  or  FALSE 

Grid  Space 

long 

0 

long  >  0 

Extension 

int 

TRUE 

TRUE  or  FALSE 

Interactive 

int 

TRUE 

TRUE  or  FALSE 

Comments 

int 

FALSE 

TRUE  or  FALSE 

Rotate 

int 

FALSE 

TRUE  or  FALSE 

Layer [1] 

char [4] 

"ND" 

char [4] 

Layer [2] 

char [4 ] 

«Np» 

char  [  4 ] 

Layer [3] 

char [4] 

"NC" 

char [4] 

Layer [4] 

char [ 4 ] 

"NM" 

char [4] 

Layer [5] 

char [4 ] 

"NI" 

char [ 4 ] 

Layer [6] 

char [ 4 ] 

"NB" 

char  [  4 ] 

Layer [7] 

char  [4] 

"NG" 

char  [  4 ] 

Layer [8] 

char [ 4 ] 

M  II 

char [4] 

Layer [9  ] 

char  (4 ] 

II  II 

char  [4] 

Layer [10] 

char [ 4 ] 

II  II 

char  [  4 ] 

Color [1-10] 

int 

TBD 

PLOT  colors 

TYPE:  DATA  ELEMENT 

DATE:  18  JUN  1984 

NAME:  Default  Control  Values 

DESCRIPTION:  These  are  the  default  values  of  the  Control 
Variables  which  are  set  immediately  upon  pro¬ 
gram  execution. 

SOURCES:  Built  into  program  code 
DESTINATIONS:  All 

COMPOSITION:  The  composition  is  listed  under  Control  Varia¬ 
bles  . 

PART  OF:  N/A 

DATA  CHARACTERISTICS:  See  Control  Variables 
VALUES:  See  Control  Variables. 


TYPE:  DATA  ELEMENT 

DATE:  18  JUN  1984 

NAME:  Default  Control  Variables 

DESCRIPTION:  These  are  the  Control  Variables  after  they  are 
set  to  the  Default  Control  Values. 

SOURCES:  All 

DESTINATIONS:  Part  of  Control  Variable  output  of  Interpret 
Commands  process. 

COMPOSITION:  See  Control  Variables 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  See  Control  Variables 
VALUES:  Values  are  set  by  Default  Control  Values. 


TYPE:  DATA  ELEMENT 
DATE:  31  May  1984 
NAME:  Error  Messages 

DESCRIPTION:  These  are  the  final  error  messages  which  are 
written  to  the  standard  output. 

SOURCES:  A42 

DESTINATIONS:  Standard  Output 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  Array  of  characters 
VALUES:  legal  Ascii  characters 


TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  Error  Numbers 

DESCRIPTION:  Error  Numbers  are  integer  numbers  which  corres¬ 
pond  to  errors  in  the  Message  File.  They  are 
passed  to  the  Print  Errors  module  which  prints 
the  appropriate  error  message  to  the  standard 
output . 

SOURCES:  A1  A2  A3 
DESTINATIONS:  A4 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  integer 
VALUES:  Fatal  Errors:  0  >  500 

Runtime  Errors:  500  >  1000 
Warnings:  -500  >  -1 

The  numbers  which  correspond  to  particular 
error  are  listed  in  the  Error  Table. 


TYPE:  FILE 

DATE:  18  JUN  1984 

NAME:  EXECUTABLE 

DESCRIPTION:  This  is  a  temporary  file  which  contains  all  CIF 
commands  from  the  input  CIF  files  that  are  not 
in  symbols.  It  will  always  contain  the  "E" 
command  and  should  contain  at  least  one  call  if 
symbols  are  used. 

LOCATION:  Drive  from  which  program  executes. 

DATA  CHARACTERISTICS:  text  file 


TYPE:  DATA  ELEMENT 

DATE:  18  JUN  1984 

NAME:  Executable  Commands 

DESCRIPTION:  These  are  character  strings  of  one  Executable 
CIF  command.  The  last  character  will  always  be 
a  semicolon  except  for  the  "E"  command. 

SOURCES:  A23 
DESTINATIONS:  A24 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  character  strings 
VALUES:  Any  legal  character  string 


TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  Fatal  Error 

DESCRIPTION:  This  parameter  signifies  that  a  fatal  error  has 
been  encountered  and  the  process  executes  an 
immediate  abnormal  execution  abort. 

SOURCES:  A42 
DESTINATIONS:  A43 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  integer  flag 

VALUES:  a  value  of  1  signifies  program  abort. 


TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  File  Table 

DESCRIPTION:  This  is  the  table  which  contains  all  informa¬ 
tion  required  for  file  I/O.  Using  this  table, 
files  can  be  accessed  using  a  pointer  to  the 
table . 

SOURCES:  Any  Process  which  passes  file  information. 
DESTINATIONS:  Any  process  which  requires  file  information. 
COMPOSITION:  see  data  characteristics. 

PART  OF:  All  specific  file  tables  (CIF  File  Table) 

DATA  CHARACTERISTICS: 


Element 

name 

mode 

buffer  start 
next  character 
buffer  size 
current  offset 


Type 

char  [14] 

char [2] 

*char 

*char 

int 

int 


What 

name  of  file 

mode  of  file  interface 

first  character  in  file  buffer 

next  character  in  file  buffer 

size  of  character  buffer 

offset  used  for  random  access 


VALUES: 


Values  are  determined  dynamically  during  pro¬ 
gram  execution. 
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TYPE:  DATA  ELEMENT 

DATE:  31  May  1984 

NAME:  Formatted  Error  Messages 

DESCRIPTION:  These  are  strings  which  have  been  constructed 
by  combining  messages  from  the  message  file  and 
other  required  information  such  as  line  numbers 
and  character  pointers  to  produce  a  finished 
error  message. 

SOURCES:  A41 

DESTINATIONS:  A42 

COMPOSITION:  See  Description;  the  finished  product  is  one  string. 

PART  OF:  N/A 

DATA  CHARACTERISTICS:  Array  of  Characters 

VALUES:  legal  Ascii  values 


TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  Geometric  Commands 

DESCRIPTION:  These  are  character  strings  of  one  Geometric 
CIF  command.  This  is  either  a  Polygon,  Box, 
wire,  or  Roundflash  Command.  The  last  character 
will  always  be  a  semicolon. 

SOURCES:  A23 
DESTINATIONS:  A24 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  character  strings 
VALUES:  Any  legal  character  string 


TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  Line  Number 

DESCRIPTION:  This  is  a  variable  which  identifies  the  current 
line  number  during  the  first  reading  of  the  CIF 
file  by  the  Parse  CIF  File  process. 

SOURCES:  variable  modified  by  A22 
DESTINATIONS:  A41 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  integer 
VALUES:  any  legal  integer  value  >  0 


TYPE:  FILE 
DATE:  30  May  1984 
NAME:  MESSAGE 

DESCRIPTION:  This  file  contains  all  messages  which  are  re¬ 
quired  by  mcifplot.  These  include  all  errors 
and  warnings.  The  program  code  will  only  con¬ 
tain  message  numbers  which  reference  a  particu¬ 
lar  message  in  this  file. 

LOCATION:  The  same  drive  as  for  program  execution. 

DATA  CHARACTERISTICS:  This  file  will  be  most  easily  con¬ 
structed  using  another  program  and  it  has  the 
following  format: 

First  Element  in  File->  Number  of  messages  unsigned  integer 

Table  of  Message 

Numbers  and  Offsets  ->  Message  Number  integer 

of  message  from  Message  Offset  unsigned  integer 

the  start  of  file 

Message  strings  ->  First  Message  char  array,  '\0' 

•  •  • 

Last  Message 


TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  Modified  Control  Variables 
DESCRIPTION:  These  variables  are  simply  the  Default  Control 
Variables  which  have  been  modified  by  options 
in  the  Command  Line  or  CADRC  file. 

SOURCES:  A13  /  A14 
DESTINATIONS:  A2  /  A3  /A4 
COMPOSITION:  See  Control  Variables 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  See  Control  Variables 
VALUES:  See  Control  Variables 


TYPE:  FILE 

DATE:  30  May  1984 

NAME:  PATTERN 

DESCRIPTION:  This  file  is  used  to  specify  new  stipple 
patterns  (really  color  values)  in  mcifplot.  The 
file  contains  a  list  of  up  to  15  new  layers  and 
colors.  It  has  the  following  form: 

1 

;comments  set  off  by 
LAY1  23 

LAY2  55 

LOCATION:  The  drive  specified  in  the  pattern  option. 

DATA  CHARACTERISTICS:  Ascii  characters. 


TYPE:  FILE 
DATE:  30  May  1984 
NAME:  PLOT 

DESCRIPTION:  This  file  is  the  output  file  of  mcifplot.  It 
contains  elementary  plot  commands  in  the  format 
required  for  PLOT.COM.  The  file  is  named  file¬ 
name. VEC,  where  filename  is  the  name  of  the 
input  CIF  file.  Check  plots  are  produced  by 
using  this  file  as  input  to  PLOT.COM. 

LOCATION:  The  same  drive  as  the  input  CIF  file. 

DATA  CHARACTERISTICS:  The  file  is  a  mixture  of  text  and 
binary  data  as  required  by  PLOT.COM 


TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  Plot  Page 

DESCRIPTION:  This  is  an  integer  flag  which  starts  the  rea¬ 
ding  and  tracing  of  the  Executable  File. 

SOURCES:  A31 
DESTINATIONS:  A32 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  Integer 
VALUES:  1  =  start  reading  file 

2  =  continuing  reading  file  (check  to  see  if  com¬ 
plete  file  is  in  memory  to  avoid  disk  access) 

0  =  trace  complete,  erase  Executable  File 
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TYPE:  DATA  ELEMENT 

DATE:  18  JUN  1984 

NAME:  Scaling  Factors 

DESCRIPTION:  These  are  four  long  integers  in  CIF  units  which 
correspond  to  the  x  and  y  minimum  (0.0)  and  x 
and  y  maximum  (1.0)  of  PLOT.COM.  The  values  are 
determined  using  the  scale  value,  window  value, 
and  plot  bounding  box. 

SOURCES:  A31 

DESTINATIONS:  A34 

COMPOSITION:  Four  long  integers:  Scale  X  Minimum 

Scale  Y  Minimum 
Scale  X  Maximum 
Scale  Y  Maximum 

PART  OF:  N/A 

DATA  CHARACTERISTICS:  integers 

VALUES:  Any  legal  integer  value 


TYPE:  DATA  ELEMENT 

DATE:  18  JUN  1984 

NAME:  Special  Control  Options 

DESCRIPTION:  The  majority  of  the  command  line  and  CADRC 
options  are  processed  in  the  Parse  Options 
process.  However,  two  special  options  require 
more  complex  activity  than  simply  modifying 
global  variables.  These  two  activities  use  the 
parameters  grouped  under  the  heading  Special 
Control  Options. 

SOURCES:  A13 

DESTINATIONS:  A14 

COMPOSITION:  Banner  -  pointer  to  string  for  banner 

Pattern  File  -  pointer  to  string  which  contains 
the  name  of  a  pattern  file 

PART  OF:  N/A 

DATA  CHARACTERISTICS:  Both  are  pointers 

VALUES:  legal  pointer  values 
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TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  Symbol  Data 

DESCRIPTION:  The  Symbol  Data  is  a  group  of  parameters  which 
are  used  to  construct  the  elements  of  the  Sym¬ 
bol  Table.  These  parameters  have  three  formats 
as  defined  by  the  first  parameter  and  described 
below. 

SOURCES:  A23 
DESTINATIONS:  A25 

COMPOSITION:  The  first  parameter  is  an  integer  flag  which 
specifies  the  format  of  the  rest  of  the  parame¬ 
ters.  It  can  have  the  value  of  0,  1,  or  2  which 
specifies  the  following  three  types: 

Type  0:  Symbol  start 

Typel:Bounds  of  Executable  Commands  (exclu¬ 
ding  Calls)  in  Symbol 
Type  2:  Symbol  End 

The  three  formats  are  specified  below: 


Format  0: 

Element 

Type 

What 

(2) 

long 

symbol  number 

(3) 

long 

scale  of  i 

symbol 

(4) 

long 

offset  in 

CIF  file  to  , 

Symbol  start 

(5) 

long 

unused 

Format  1: 

(2) 

long 

x  minimum 

of  Geometric 

Command 

(3) 

long 

y  minimum 

of  Geometric 

Command 

(4) 

long 

x  maximum 

of  Geometric 

Command 

(5) 

long 

y  maximum 

of  Geometric 

Command 

Format  2: 

(2) 

long 

unused 

(3) 

long 

unused 

(4) 

long 

unused 

(5) 

long 

unused 

Values:  legal 

values  for 

long 

variables 

TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  Symbol  Table 

DESCRIPTION:  This  table  contains  all  necessary  information 
to  process  and  access  all  symbols  in  the  CIF 
file.  It  is  built  using  information  from  the 
Symbol  Data.  Note  that  the  type  data  in  the 
Symbol  Table  varies  from  the  more  general  data 
types  in  the  Symbol  Data  in  order  to  conserve 
space . 

SOURCES:  A25 
DESTINATIONS:  A33 

COMPOSITION:  The  table  is  a  linked  list  that  is  dynamically 
allocated.  Each  entry  in  the  list  contains  the 
following  elements  (types  listed  are  for  inple- 
mentation  in  the  C  language) : 


Name 

Type 

What 

number 

unsigned 

number  of  symbol 

offset 

int 

offset  from  start  of  file 

- - 

record 

unsigned 

record  number  on  disk  of  start 

of 

symbol,  if  >  than  255  then  the 

of- 

fset  must  be  interpreted  relative 
the  record 

to 

x  min 

int 

minimum  x  of  symbol  bounding  box 

y  min 

int 

minimum  y  of  symbol  bounding  box 

* - 

x  max 

int 

maximum  x  of  symbol  bounding  box 

*  • 

y  max 

int 

maximum  y  of  symbol  bounding  box 

next  symbol 

*int 

pointer  to  next  symbol  in  table 

m 

TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 

NAME:  Translated  Geometric  Commands 

DESCRIPTION:  This  is  a  character  string  which  contains  one 
Geometric  command  that  has  been  translated 
according  to  the  the  transformations  and  sca¬ 
ling  of  the  symbol  that  contains  it.  The  num¬ 
bers  in  the  command  are  in  absolute  CIF  units. 

SOURCES:  A3 3 
DESTINATIONS:  A34 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  character  string 
VALUES:  Any  legal  character  string 
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TYPE:  DATA  ELEMENT 
DATE:  18  JUN  1984 
NAME:  User  Answer 

DESCRIPTION:  This  is  a  character  string  read  from  the  stan¬ 
dard  input  in  response  to  the  User  Query. 
SOURCES:  Standard  Input 
DESTINATIONS:  A31 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  String  of  characters. 

VALUES:  The  first  character  of  User  Answer  [0]  =  *y'  or 

'Y'  signifies  continue  execution,  any  other 
character  will  abort  the  program. 


TYPE:  DATA  ELEMENT 
DATE:  31  May  1984 
NAME:  User  Prompt 

DESCRIPTION:  Any  legal  character  which  signifies  that  the 
user  is  ready  for  another  page  of  errors.  Error 
messages  are  written  to  the  standard  output 
until  a  full  screen  has  been  output,  the  output 
pauses  until  a  prompt  is  received  from  the 
user . 

SOURCES:  Standard  Input 
DESTINATIONS:  A42 
COMPOSITION:  N/A 
PART  OF:  N/A 

DATA  CHARACTERISTICS:  character 
VALUES:  Any  Ascii  character 
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TYPE:  DATA  ELEMENT 

DATE:  18  JUN  1984 

NAME:  User  Query 

DESCRIPTION:  This  query  consists  of  four  lines  of  text  which 
report  the  window  size,  plot  length,  and  scale. 
The  user  is  asked  if  a  plot  is  desired.  The 
lines  are  written  to  the  standard  output. 

SOURCES:  A31 

DESTINATIONS:  Standard  Output 

COMPOSITION:  The  following  lines  with  appropriate  values 
inserted  for  window,  length,  and  scale: 

Window  0  20000  0  345000 
Scale:  1  micron  is  0.00034  inches 
The  plot  will  be  0.610833  feet 
Do  you  want  a  plot? 


PART  OF:  N/A 

DATA  CHARACTERISTICS:  Window  -  long 

Scale  -  float 
Feet  -  float 

VALUES:  Legal  values  for  long  and  float  (float  values  are  >0) 


1 

'( 

i 


sypt->nusber  *  sysnus; 
else  build  *  FALSE; 

sypt->scale  =  (float)  sys_ascale  /  sy«_bacale; 
while  ( * (co*_string  *  get_cif _co*(cif_£ile, FALSE) )  !=  NULL  &£. 
!  ( »co*_string  ==  'D'  £.&  » (co*_string*l )  ==  'F')) 

( 

if  (isdigit(»co*_string>  &&  {extension) 

( 

prt_error(1006,co*_string> ; 

) 

else 

( 

switch  ( «co*_string) 
l 

case  'B': 

if  (no_layer)  prt_error(502,cos_string) ; 
newbox  =  ck_box(co»_string) ; 

if  (newbox  !=  NILL)  change_bds(&oldbox, newbox) ; 
else  build  *  FALSE; 
break; 
case  'R': 

if  (no_layer)  prt_error(502,co»_string) ; 
newbox  *  ck_round (coe_string > ; 

if  (newbox  t-  NILL)  change_bds(&oldbox, newbox) ; 
else  build  =  FALSE; 
break; 
case  'W': 

if  (no_layer)  prt_error (502,co*_string) ; 
newbox  =  ck_wire(coe_string> ; 

if  (newbox  J=  NILL)  change_bds(&oldbox, newbox) ; 


else  build  *  FALSE; 
break; 
case  'P': 

prt_error(1007,co*_string) ; 

if  (no_layer)  prt_error(502,co*_string> ;  */ 

newbox  B  ck_poly (co*_string) ;  */ 

if  (newbox  !=  NILL)  change_bds(Sioldbox, newbox) ;  •/ 

else  build  *  FALSE;  •/ 


break; 
case  'L': 

ck_layer(cos_string) ; 
no_layer  *  FALSE; 
break; 
case  'C': 

if  (ck_call (co»_string)  ==  TRUE)  build  *  FALSE; 
else  sypt->calls  =  YES; 
break; 
case  '1': 

do_lco*(co*_atring) ; 
break; 
case  '2': 

prt_error(1001,co*_string) ; 

if  (text)  ck_2(cos_string) ;  */ 

break; 


C-14 


puts(itoa(i,sp) ) ; 
puts(”  K  written  to  "); 
puts(outf name) ; 
puts<"\n“> ; 

) 

pc_quit(plot_f ile->channel) ; 

I 


DATE:  27  OCT  1984 
VERSION:  1.0 
NAME:  bld_st 
SCNUMB£R:~3.2 

FUNCTION:  Adds  an  entry  to  the  symbol  table  or  starts  symbol 
table  if  this  is  the  first  symbol.  Checks  syntax  of  all 
commands  in  the  symbol.  Calls  prt_error  if  errors  are 
found  and  sets  build  «  FALSE. 

INPUTS:  com_string 
OUTPUTS:  none 

GLOBAL  VARIABLES  USED:  com_offset,  comrecord 
GLOBAL  VARIABLES  CHANGED:  last_symbol,  table_top,  build 
FILES  READ:  none 
FILES  WRITTEN:  none 

MODULES  CALLED:  ck_box  /  ck_eall  /  ck_round  /  ck_layer 

ck_start  /  ck_wire  /  do_lcom  /  ck_9  /  isdigit  /  sbrk 
change_bds  /  getcif  com  /  prt  error 
CALLING  MODULES:  parse _cif 
HISTORY:  N/A 


bld_st<com_string) 
char  »com_atring; 

( 

static  struct  symbol 
static  struct  box 
static  int 
static  long 
struct  box 
char 

found9  *  FALSE; 
no_layer  *  TRUE; 
oldbox.xmin  *  oldbox.ymin  =  INFINITY; 

oldbox.xmax  *  oldbox.ymax  *  -INFINITY; 

sypt  *  ((struct  symbol  •)  sbrk(sizeof (struct  symbol))); 
if  (sypt  ==  -1)  prt_error(5001,NILL> ; 
if  (table_top  *=  NILL)  table_top  *  sypt; 
sypt->offset  =  com_offset; 
sypt->record  =  com_record; 
sypt->next  *  NILL; 
sypt->inuse  =  NO; 

sypt->calls  «  NO; 

sym_ascale  *  sym_bscale  =  1L; 
sypt->number  *  OL; 

if  (ck_8tart(com_string,&symnum,Sisym_ascale,&sym_b8cale)  - 


•sypt; 

oldbox,  *newbox; 
found9,  no_layer; 
symnum,  sym_ascale,  sym_bscale; 
•ck_box() ,»ck_wire( ) ,*ck_round() ; 
•get  cif  com ( ) ; 


•  TRUE  (progra*  aborts  in  report  size)  and  if  there  is 

•  no  room  to  write  the  output  file  then  the  progra* 

•  aborts  using  prt_error  after  the  size  is  reported,  but 

•  before  writing  begins. 

•  INPUTS:  expox 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  charcount,  wrtspace,  nextk,  quiet 

•  plot_file 

•  GLOBAL  VARIABLES  CHANGED:  pwindow,  lastalloc 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  NODULES  CALLED:  trace_table  /  set_page  /  report_size  /  itoa 

•  plotpoge  I  open_pfile  /  prt_error  /  pc_quit  /  sbrk  puts 

•  CALLING  MODULES:  main 

•  HISTORY:  N/A 


bld_f ile(exbox) 
struct  box  *exbox; 

( 

struct  box  *trace_table< ) ; 

static  struct  box  "allbounds; 

static  lnt  i,  pagenu*; 

static  long  realxsax,  pagex; 

static  char  sp(7]; 

char  "itoaO; 

lastalloc  *  abrk(l); 

if  (lastalloc  ■*  -1)  prt_error(5002,NILL) ; 

lastalloc  ♦«  SAVEZONE; 

allbounds  *  trace_table ( exbox ) ; 

if  <ck_bounds(allbounds) )  prt_error(2001,NILL) ; 

pwindow. x*in  *  allbounds->xain; 

pwindow. x*ax  =  allbounds->x*ax; 

pwindow. y*in  *  allbounds->y*in ; 

pwindow. y*ax  =  allbounds->y*ax; 

pagenu*  »  aet_page(&pwindow,&realx*ax> ; 

pagex  *  pwindow. x*ax  -  pwindow. x*in; 

report_size(&pwindow,realx*ax) ; 

open_pfile( ) ; 

if  (charcount  <  1024L)  prt_error< 15.NILL) ; 
for  (i*l;  i<*pagenua;  ♦♦!) 

( 

plot_page(i) ; 

pwindow. x«ln  ■  pwindow. x*ax; 
pwindow. xaax  ♦*  pagex; 

if  <(<i*l)  **  pagenu*)  &&  (pwindow, xiax  > 
pwindow. x*ax  =  realx*ax; 

) 

if  (Iquiet) 

{ 

pagex  *  wrtspace  -  charcount; 
pagex  *  pagex  /  1024; 
i  *  (int)  pagex  *  1; 
puts("\r->  "); 
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DATE:  5  NOV  1984 
VERSION:  1.0 
NAKE:  oddline 
SCNUMBER:  3.1.3 

FUNCTION:  Increments  line_number  end  if  not  quiet,  displays 
the  line  count  to  the  std  out. 

INPUTS:  none 
OUTPUTS:  none 

GLOBAL  VARIABLES  USED:  quiet 

GLOBAL  VARIABLES  CHANGED:  line_nunber 

FILES  READ:  none 

FILES  WRITTEN:  none 

NODULES  CALLED:  puts  /  litoa 

CALLING  NODULES:  get_cif_com 

HISTORY:  N/A 


add_line<) 

{ 

static  char  spClOl; 
char  ‘litoaO; 

♦♦line_number; 

if  (Iquiet  &&  (line_number  X  LNOTIFY)  **  0) 
( 

puta<M\r->  parsing  “); 
puts(cif_f ile->name) ; 
puts(”:  ">; 

puts ( litoa ( line_nu*ber,sp) ) ; 
putaC*  lines  read  '*) ; 

) 


. . * . . . 

•  DATE:  9  NOV  1984 

•  VERSION:  1.0 

•  NAME:  bldf ile 

•  SCNUMBER:  4.0 

•  FUNCTION:  Memory  allocation  for  the  symbol  table  is  complete 

•  at  this  time.  (The  last  memory  allocation  is  done  in 

•  open_pfile  when  space  is  allocated  for  the  PLOT  file 

•  record).  Sbrk  is  called  to  get  the  top  of  availible 

•  memory  and  lastalloc  is  set  to  this  including  a  safety 

•  zone.  Next,  the  symbol  table  is  traced  to  determine 

•  true  bounds  of  the  entire  plot.  Sets  global  variable 

•  pwindow  with  these  bounds.  Calls  set_page  to  determine 

•  window  for  each  PLOT.COM  page.  Calls  report_size  to 

•  display  size  and  scale  of  plot  to  std  out.  If  control 

•  returns,  open_pflle  is  called  to  open  the  output  file 

•  end  set  the  available  disk  space  in  charcount.  The 

•  program  aborts  through  prt_error  if  the  available  space 

•  is  less  than  1  K.  Next  plot_page  is  called  to  write  one 

•  PLOT.COM  page  to  the  PLOT  file  for  each  page  in 

•  sucession.  No  output  file  is  is  built  if  err.flag  is 
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puts(co) ; 

puts( litoa(totbox,co*store) ) ; 
puts("\n") ; 
puts("Wire") ; 
puts < co ) ; 

puts( litoa ( totwire.cosstore) ) ; 
puts<"\n") ; 
putaC’Roundflash") ; 
puts(co) ; 

puts < 1 i toa < totround , constore ) ) ; 
puts("\n") ; 
puts( “Layer") ; 
puta(co) ; 

puts(litoa(totlayer,co*store) ) ; 
puts("\n") ; 
puts (“Call") ; 
puts ( co ) ; 

puts( litoa (totcall ,co*atore) > ; 
puts("\n**) ; 
puts  < “Cossent" ) ; 
puts < co ) ; 

puta( litoa <totccoaents,coastore> ) ; 

putaC'W) : 

puts ("Extension") ; 

puts ( co ) ; 

puts( litoa (totextension , constore) ) ; 
puts("\n”) ; 
puts ("total"); 
puts ( co ) ; 

puts(litoa(totcomaand,co*store) ) ; 
puta("\n") ; 

) 

switch  (type) 

( 

case  0: 

putsC "\n*cif plot  killed  -  abort\n”); 
break; 

case  1: 

puts("\nFatal  error(s)  encountered  -  abort\n") 
break; 

case  2: 

puts(”\n“> ; 
break; 

case  3: 

puts("\n”) ; 

if  (transfer)  exec(trnase,outfna»e) ; 
break; 

case  4: 

puts("\n") ; 
break; 

) 

if ('quiet)  puta("\007"> ; 
exitO; 
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GLOBALS 


/• 


*/ 


float 

viewport; 

float 

ldenity(9]  = 

(  1.0, 

0.0, 

0.0 

0.0, 

1.0, 

0.0 

0.0, 

0.0, 

1.0 

float 

rotmatrix(93  * 

(  0.0, 

1.0, 

0.0 

-1.0, 

0.0, 

0.0 

0.0, 

0.0, 

1.0 

int 

deplimit  =  200; 

int 

curdepth; 

struct  box 

pwindow; 

char 

pban (1621 ; 

long 

callcount,  wrtspace; 

long 

nextk  *  WNOTIFY; 

unsigned 

lastalloc; 

. . . . ••*• . •••* 

•  DATE:  25  OCT  84  • 

•  VERSION:  1.0  • 

•  NAME:  abort  * 

•  SCNUHBER:  1.1 

•  FUNCTION:  Cloaes  all  open  filea  (it  doea  this  rather  crudely  • 

•  by  executing  fclose  on  channel  #'s  1-6).  Erases  the  • 

•  Temporary  EXECUTABLE  file  (if  type  <  3)  and  depending  • 

•  on  the  type  of  abort  -  prints  different  sassages  to  the  * 

•  standard  out.  This  module  is  responsible  for  all  program* 

•  controlled  termination  of  mcifplot.  • 

«  JNPUTS:  type  • 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  quiet,  transfer,  trname,  totcommand  • 

•  totbox,  totwire,  totroundf lash,  totextension,  totcomment* 

•  totcall,  totsymbol  * 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none  * 

•  FILES  WRITTEN:  all  files  closed 

«  MODULES  CALLED:  fclose  /  puts  /  unlink  /  exec  • 

•  CALLING  MODULES:  main  /  report_alze  • 

•  HISTORY:  N/A  '  • 

. . . . 

abort (type) 

int  type; 

( 

static  int  i; 

static  char  *co  =  "  Commands: 

char  *litoa(); 

for  (i*l;  i<*6;  ♦♦!)  fcloae(i); 

if  (type  <  4)  unlink(exec_f ile->name) ; 

if  (notify  & &  (type  **011  type  **  3>) 

( 

puts(“\n\nSymbols:  ">; 
puta(litoa(totsymbol,coastore> ) ; 
puta("\n") ; 
puts ( "Box" ) ; 
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#ifdef 

TEST 

float 

viewport; 

float 

idenityC9]  * 

{  1.0, 

0.0, 

0.0 

0.0, 

1.0, 

0.0, 

0.0, 

0.0, 

1.0 

float 

rotaatrix(91  = 

C  0.0, 

1.0, 

0.0, 

-1.0, 

0.0, 

0.0, 

0.0, 

0.0, 

1.0 

long 

nextk  *  WNOTIFY ; 

long 

wrtspace,  callcount; 

int 

deplisit  =  200; 

unsigned 

lastalloc; 

int 

curdepth; 

struct 

box 

pwindow; 

char 

pban 11621 ; 

ielse 

extern 

float 

viewport; 

extern 

float 

idenity  t S3 

,  rotnatrixC93 

! 

extern 

int 

deplisit. 

curdepth; 

extern 

struct  box  pwindow; 

extern 

char 

pban [162] ; 

extern 

long 

callcount. 

nextk,  wrtspace; 

extern 

unsigned 

lastalloc; 

#endif 

•  DATE: 

:  21  NOV 

84 

VERSION:  1.0 

TITLE:  HCIFPLOT.C 
OWNER:  Kirk  S.  Horton 
OPERATING  SYSTEM:  CPM  2.2 
LANGUAGE:  Software  Toolworks  C/80 

USE:  Coal lie  and  link  with  INTCOM.REL,  PARSECIF.REL, 
BLDFILE.REL,  KAIN.REL,  and  CLIB.REL 
CONTENTS: 


do_9xcoa 

4. 5. 2. 6 

do_box 

4. 5. 2.1 

do_grid 

4.5.1 

do_page 

4.5.2 

do_round 

4. 5. 2. 3 

do_wire 

4. 5. 2. 2 

plot_page 

4.5 

proc_call 

4. 5. 2. 5 

put_box 

4. 5. 2. 1.3 

test_space 

PC  PROC 

iinclude  "a:*ain.c 


f ind_sya 

3.2.7. 1 

fskp_blank 

3.1.2 

fskp_coaaent 

3.1.1 

get_cif_cos 

3.1 

getinteger 

3. 2. 1.1 

get_point 

3. 2. 1.2 

put_cos 

3.3.1 

akip_blank 

3.2.4. 1 

skipeep 

3. 2. 1.4 

wrt  ex  file 

3.3 

FUNCTION:  Parces  and  checks  syntax  of  the  input  CIF  file.  The 
executable  cossands  are  written  to  the  EXECUTABLE  file 
and  aysbol  table  entries  are  created  for  each  sysbol. 


^include  "a:»aln.c" 


/•  GLOBALS  •/ 

struct  aysbol  »laat_ayabol ; 

int  build,  end,  exlayer; 

struct  box  exbox ; 

. . . . . 

«  DATE:  12  NOV  84  • 

•  VERSION:  1.0 

•  • 

•  TITLE:  BLDFILE.C  • 

•  OWNER:  Kirk  S.  Horton 

•  OPERATING  SYSTEH:  CPN  2.2  * 

•  LANGUAGE:  Software  Toolworks  C/80  * 

•  USE:  Coslile  and  link  with  NAIN.REL,  PARSECIF.REL,  INTCOM.REL, • 


MCIFPLOT.REL, 

and  CLIB.REL 

CONTENTS: 

bld.file 

4.0 

clip_box 

4. 5. 2. 1.1 

get_ex_cos 

4.1.1 

get_layer 

4. 5. 2. 4 

get_tran 

4. 1.2.1 

sult33 

4. 1.2. 1.1 

open_pf ile 

4.4 

reportsize 

4.3 

aet.page 

4.2 

trace_table 

4.1 

tracedown 

4.1.2 

transbox 

4.1.3 

trantoplot 

4. 5. 2. 1.2 

S include  **a:nain.c 


/ 


DATE:  21  NOV  84 
VERSION:  1.0 

title:  intcom.c 

OWNER*.  Kirk  S.  Horton 
OPERATING  SYSTEM*.  CPM  2.2 
LANGUAGE:  Software  Toolworks  C/80 

USE:  Coapile  and  link  with  MAIN.REL,  PARSECIF.REL,  BLOFILE.REL 
MCIFPLOT.REL,  and  CLIB.REL  to  fora  MCIFPLOT.COM. 

CONTENTS: 


intcoaaand 

2.0 

ck_range 

2.2.1 

cpa_f ile 

2.2.6 

do_notify 

2.3 

f ile_open 

2.2.4 

f ileaeek 

2.2.5. 1 

get_cad_opt 

2.1 

get_pattern 

2.2.3 

par_ layer 

2.2.2 

par_options 

2.2 

prt_error 

2.2.5 

FUNCTION:  Interprets  the  coesand  line  and  CAORC  file  to  sodlfy 
the  status  of  the  Control  Variables. 
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Ninclude  "a:sain.c“ 


DATE:  12  NOV  84 
VERSION:  1.0 

TITLE:  PARSECIF.C 
OWNER:  Kirk  S.  Horton 
OPERATING  SYSTEM:  CPM  2.2 
LANGUAGE:  Software  Toolworks  C/80 

USE:  Coal lie  and  link  with  MAIN.REL,  INTCOM.REL,  BLDFILE.REL 
and  MCIFPLOT.REL  AND  CLIB.rel  to  fora  MCIFPLOT.COM 
CONTENTS: 

parse_cif  3.0 

add_line  3.1.3 

bld~st  3.2 

box_bounds  3. 2. 1.3 

change_bds  3.2.9 

ck_9  "  3.2.5 

ck_bounds  3. 2. 1.3.1 

ck_box  3.2.1 

ck_call  3.2.5 

ck_layer  3.2.6 

ck_round  3.2.3 

ck_start  3.2.7 

ck_wire  3.2.2 

do  lcoa  3.2.8 
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ielse 

/» 

CONTROL  VARIABLES  •/ 

extern 

int 

banner; 

extern 

char 

bantext  CBANLENGTH] ; 

extern 

int 

bbox; 

extern 

int 

color [LAYERNAX3 ; 

extern 

int 

coaaenta; 

extern 

long 

depth ; 

extern 

int 

extension; 

extern 

int 

grid; 

extern 

long 

gridspace; 

extern 

int 

interactive; 

extern 

char 

layer  [LAYERMAX1 C53 ; 

extern 

int 

aakepage; 

extern 

int 

notify; 

extern 

int 

outf ile; 

extern 

char 

outfnaae [15] ; 

extern 

int 

outline; 

extern 

int 

pattern; 

extern 

int 

pointnaae; 

extern 

int 

quiet; 

extern 

int 

rotate; 

extern 

int 

scale; 

extern 

float 

acalenua; 

extern 

int 

syabolnaae; 

extern 

int 

text; 

extern 

int 

transfer; 

extern 

char 

trnaseClS] ; 

extern 

int 

window; 

extern 

long 

wxsin,  wxsax,  wyein,  wysax; 

extern 

char 

•patstring; 

/• 

GLOBALS  •/ 

extern 

atruct 

file  »er_file,  •cif_file,  *exec_file,  •plot_file; 

extern 

etruct 

syabol  *table_top; 

extern 

long 

charcount,  line_nu*ber,  totextension,  totccosaent,  totlayer 

extern 

long 

totbox,  totwire,  totround,  totcall,  totayebol,  totcoesand; 

extern 

int 

inaestab,  «esflletest,coe_offaet,  co*_record,  err_flag; 

extern 

char 

comstore  [NAXC0HLEN1 ; 

Hendif 


long  syain; 

long  sxmax; 

long  aymax; 

char  calls; 

char  inuse; 

struct  symbol  »next; 
); 


Nifdef 

/• 

TEST 

CONTROL  VARIABLES 

•  / 

int 

banner 

•  FALSE; 

char 

bantext (BANLENGTH3 

•  NULL; 

int 

bbox 

*  TRUE; 

int 

color [LAYERNAX3 

C 

(  49 

,  50  ,  51  ,  52  ,  53  . 

54  .  55  ,  56  ,  57  ,  58 

,  59  .  60  ,  61  ,  62  ,  63 

int 

comments 

*  FALSE; 

long 

depth 

•  NESTLIMIT; 

int 

extension 

•  TRUE; 

int 

grid 

«  FALSE; 

long 

gridspace 

«  0; 

int 

interactive 

=  TRUE; 

char 

layer (LA YERMAX3 (S3 

= 

(  “ND" 

,  •,NrVNP,V‘NC*VNM*\ 

‘‘NB“ ,  “NG” ,  “CW ,  “CD** ,  “CP* 

• , "CS" , "CC“ , “CH“ , MCG" , "CE” 

int 

makepage 

«  FALSE; 

int 

notify 

=  FALSE; 

int 

outf lie 

«  FALSE; 

char 

outfname(153 

«  NULL; 

int 

outline 

«  TRUE; 

int 

pattern 

*  FALSE; 

int 

pointname 

=  TRUE; 

int 

quiet 

•  FALSE; 

int 

rotate 

•  FALSE; 

int 

scale 

=  FALSE; 

float 

scalenum 

*  0; 

int 

symbolname 

=  TRUE; 

int 

text 

*  TRUE; 

int 

transfer 

•  FALSE; 

char 

trname(153 

=  NULL; 

int 

window 

=  FALSE; 

long 

wxmin 

=  INFINITY; 

long 

wxmax 

•  -INFINITY; 

long 

wymin 

=  INFINITY; 

long 

wymax 

»  -INFINITY; 

char 

•patstring 

=  NILL; 

/• 

GLOBALS 

*/ 

struct  file  »er_file,  «cif_file,  »exec_file,  »plot_file; 

struct  symbol  »table_top; 

long  charcount,  linenumber,  totlayer,  totextension ,  totccomment; 

long  totbox,  totwire,  totround,  totcall,  totsymbol,  totcommand; 

int  inmestab,  meafileteat,  com_offset,  com_record,  err_flag; 

char  comstore CHAXCOMLEN) ; 


•define  MILL  0 

•define  NO  'O' 

•define  NULL  '\0' 

•define  PAGEHAX  20 

•define  PAGERIN  10 

•define  PAGEWIDTH  8.0 

•define  PLOTCHARS  96L 

•define  PLOTNAX  32767 

•define  RETCURDISK  25 

•define  SAVEZONE  200 

•define  SELECTDISK  14 

•define  TRUE  1 

•define  VERSION  "Version  1.0\t21  Noveeber  1984Vt<c>  1984  Kirk  S.  Horton" 

•define  WHITE  0 

•define  WNOTIFY  2048 

•define  YES  '1' 

/•  STRUCTURES  «/ 


struct  box 
( 

long  xsin; 

long  xsax; 

long  ysin; 

long  ysax; 

J : 

struct  cliprec 
( 

int  top; 

int  bottos; 

int  left; 

int  right; 

): 

struct  file 
( 

char  nase(151; 

char  sode [31; 

char  »next_char; 

char  »buff_start; 

int  channel; 

int  buff  size; 

In¬ 
struct  point 
( 

long  x; 

long  y; 

); 

struct  symbol 
( 

long  nusber; 

int  offset; 

int  record; 

float  scale; 

long  sxsin: 
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DATE:  12  NOV  84 
VERSION:  1.0 

TITLE:  MAIN.C 
OWNER:  Kirk  S.  Horton 

NCIFPLOT  AND  IT'S  DOCUMENTATION  ARE  COPYRIGHT  (C)  1984  BY 
KIRK  S.  HORTON  IN  ASSOCIATION  WITH  THE  UNITED  STATES  AIR  FORCE 
USERS  MAY  COPY  AND  EXCHANGE  THE  PROGRAM  WITH  THE  RESTRICTION 
THAT  SAID  DISTRIBUTION  IS  NON-COMMERICAL  IN  NATURE.  RESALE 
FOR  PROFIT  REQUIRES  THE  EXPRESS  WRITTEN  CONSENT  OF  THE 
COPYRIGHTER. 

OPERATING  SYSTEM:  CPM  2.2 
LANGUAGE:  Software  Toolworks  C/80 

USE:  Comlile  and  link  with  INTCOM.REL,  PARSECIF .REL, 
BLDFILE.REL,  MCIFPLOT. REL,  AND  CLIB.REL  to  for* 
MCIFPLOT.COM 
CONTENTS: 

global  definitions 
structure  definitions 
Control  Variables 
global  variables 
sain  1.0 

FUNCTION:  Main  calls  the  3  major  functions  which  implement 
MCIFPLOT.COM  -  int_command,  parse_cif,  and  bld_file 
. * . . . . 


/• 

CONSTANTS 

•define 

BANLENGTH 

83 

•def ine 

BLACK 

127 

•def ine 

CADNAME 

"CADRC" 

•define 

CADOPTMAX 

30 

•define 

CLOSEROOM 

5L 

•define 

CNOTIFY 

10L 

•define 

CONVERT 

1024L 

•define 

EOF 

-1 

•define 

ERRSTGBUF 

81 

•def ine 

EXNAME 

"EXCOM.TMP” 

•define 

FALSE 

0 

•define 

FEETMICRON 

2. 1167e-4 

•define 

INFINITY 

16777215 

•define 

LAYERMAX 

15 

•define 

LNOTIFY 

100 

•define 

MAXCOMLEN 

161 

•define 

MAXSYMNUM 

65535L 

•define 

MESFILE 

"MESSAGE.BIN 

•define 

MINLINE 

.001 

•def ine 

MINFILL 

.002 

•define 

NESTLIMIT 

10 

•define 

NEWLINE 

'  \n' 
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APPENDIX  C:  Structure  Charts  and  Headera/Code 


APPENDIX  C  includes  three  iteaa:  the  file  headers  for  the 
four  seif elot  divisions,  the  headers  and  code  for  »ci f plot  with 
the  procedures  in  alphabetical  order,  and  the  program  Structure 
Charts. 
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case  '9': 

if  (• (coa_string»l)  !*  '4'  &&  found9) 

r 

prt_error(1008,coa_atring) : 
break; 

) 

found9  =  TRUE; 

if  (pointnaae  (I  sysbolnase)  ck_9(co«_atring) ; 
break; 
case  'O': 

prt_error<500,co*_string) ; 
break; 
case  'D': 

if  ( • <co*_string*l>  ==  'D'>  prt_error (200,co»_string) ; 
else  if  <«(co*_string*l)  =*=  'S')  prt_error (202,cos_string) 
else  prt_error(501,coa_string> ; 
break; 
case  'E': 

prt_error (203,cos_atring) ; 
break; 

default: 

prt_error (503,cos_atrlng) ; 

) 

) 

) 

if  ( »com_string  *»  NULL)  prt_error(12,NILL) ; 

sypt->sxsin  «  oldbox.xain  *  sya_ascale  /  sya.bscale; 

sypt->sxaax  =  oldbox.xsax  •  sy»_ascale  /  sys_bscale; 

sypt->sysin  *  oldbox.ysin  «  sya_asc ale  /  «ys_bacale; 

sypt->sysax  =  oldbox.ysax  •  sy»_ascale  /  sya_bacale; 

if  (last^sysbol  ! =  NILL)  last_syabol->next  *  sypt; 
last_syabol  =  sypt; 
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. . . . . 

•  DATE:  10  OCT  1984 

•  VERSION:  1.0  • 

•  NAME:  box_bounds  • 

•  SCNUHBER : ~3 . 2 . 1 . 3  • 

•  FUNCTION:  Uses  box_data  to  deters ine  bounds  of  a  box  and  • 

•  modifies  the  input  box  (via  pointer)  to  these  bounds.  • 

•  Returns  error  *  TRUE  if  bounds  exceed  legal  CIF-numbers  • 

•  when  calculated.  • 

•  Assumes  Manhattan  directions.  Since  dx  or  dy  must  be  • 

•  zero  the  procedure  calculates  the  bounds  of  the  box  if  • 

»  it  lies  parallel  to  to  the  x  or  y  axis.  Should  be  • 

•  rewritten  to  allow  for  no  restrictions  on  directions.  • 

•  Round  down  occurs  if  numbers  are  not  even.  • 

•  INPUTS:  box_data  « 

•  OUTPUTS:  error  • 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  none  « 

•  MODULES  CALLED:  ck_bounds  • 

•  CALLING  MODULES:  cic_box  • 

«  HISTORY:  N/A  • 

boxbounds (length , width , cx , cy , dx , dy , bpt  > 
long  length,  width,  cx,  cy,  dx,  dy; 

struct  box  »bpt; 

( 


» 


length  /*  2; 
width  /*  2; 
if  (dx) 

( 

bpt->xmin 

bpt->ymln 

bpt->xmax 

bpt->ymax 

) 

else 

( 


*  cx  -  length; 
=  cy  -  width; 

■  cx  ♦  length; 

*  cy  ♦  width; 


bpt->xmin  * 
bpt->ymin  = 
bpt->xmax  * 
bpt->ymax  * 
) 

if  (ck_bounds(bpt) > 
return(FALSE) ; 


cx  -  width; 
cy  -  length; 
cx  ♦  width; 
cy  ♦  length; 

return(TRUE) ; 
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. . . . . . . . •••• 

»  DATE:  27  OCT  1984  • 

•  VERSION:  1.0  • 

•  NAME:  change_bds  * 

«  SCNUMBER:  3.2.9  • 

•  FUNCTION:  Compares  the  bounds  In  the  new  Input  box  to  the  old  • 

•  input  box.  Modifies  the  old  input  box  to  the  aaxisue  • 

•  values  of  the  two  input  boxes  (the  new  symbol  bounds).  ■ 

•  INPUTS:  oldbox,  newbox  * 

•  OUTPUTS:  none  * 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  * 

•  FILES  WRITTEN:  none  • 

•  MODULES  CALLED:  none  • 

•  CALLING  MODULES:  bld_st  /  wrt_ex_file  • 

•  HISTORY:  N/A  • 

. . . . . . . . . . . . 

change_bds <  oldbox , newbox ) 

struct  box  *oldbox,  «newbox; 

( 


if 

if 

if 

if 


<newbox->xnin 
(newbox->xeax 
<newbox->yain 
( newbox ->ysax 


<  oldbox->xsin) 

>  oldbox->xsax) 

<  oldbox->yain) 

>  oldbox->ysax) 


oldbox->xsin 

oldbox->xaax 

oldbox->y«in 

oldbox->ysax 


*=  newbox->xsin 

*  newbox- >xeax 

*  newbox->yain 

*  newbox ->y*ax 


) 


return; 


. . . . . . 

•  DATE:  27  OCT  1984  • 

•  VERSION:  1.0  • 

•  NAME:  ck_9 

•  SCNUMBER:  3.2.5  • 

•  FUNCTION:  Checks  syntax  of  Extension  9  and  94  (layer  is  not  • 

•  read  or  checked  for  94).  Returns  error  *  TRUE  if  syntax  • 

•  errors  are  found.  * 

•  INPUTS:  com_string  * 

•  OUTPUTS:  error  • 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  none  • 

•  MODULES  CALLED:  prt_error  /  isdigit  /  get_point  /  isspace  • 

•  iaalpha  * 

•  CALLING  MODULES:  build_st  * 

•  HISTORY:  N/A  • 

. . . . . . 

ck_9<sp> 
char  *sp; 

( 

static  char 
static  int 


•  tp; 
four; 
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static  struct  point  pt; 

tp  *  sp  ♦  1; 
if  (»tp  ==  '4') 

( 

four  «  TRUE; 

♦  ♦tp; 

) 

else  four  *  FALSE; 

while  (isapace(*tp> )  +»tp; 
if  (isdigit(*tp) >  prt_error(1002,sp) ; 
if  (four) 

( 

while  (iaalpha(*tp)  II  iadigit(»tp) )  *»tp; 
if  (get_point(sp,&tp,&pt) ) 

”( 

prt_error (515,sp) ; 
return(TRUE) ; 

) 

) 

if  (notify)  ♦♦totextension; 
return (FALSE) ; 

) 

. . . . 

•  DATE:  27  OCT  1984 

•  VERSION:  1.0 

•  NAME:  ck_bounds 

•  SCNUNBER:  3. 2. 1.3.1 

•  FUNCTION:  Usee  input  box  and  checks  to  insure  that  each 

•  coordinate  is  a  legal  CIF  nusber.  Returns  error  =  FALSE 

•  if  ok,  else  error  «  TRUE. 

•  INPUTS:  box 

•  OUTPUTS:  error 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  NODULES  CALLED:  ck_range 

•  CALLING  NODULES:  box.bounds 

•  HISTORY:  N/A 


ck_bounds(bpt) 
struct  box  *bpt; 

( 

if  (ck_range(bpt->xsin)  I  I 
ck_range(bpt->xsax)  I  I 
ck_range(bpt->ysin)  I  I 
ck_range(bpt->ysax) )  return(TRUE) ; 
return(FALSE) ; 

) 


T 


. . . . . . . 

»  DATE:  27  OCT  1984  • 

•  VERSION:  1.0 

•  NAME*.  ck_box 

•  SCNUMBER:  3.2.1  • 

•  FUNCTION:  Checks  CIF  Box  Cossand  for  correct  syntax  and  • 

•  reports  errors.  Returns  pointer  to  box  with  correct  • 

»  bounds  or  SILL  if  errors  are  found.  • 

•  Checks  for  Non-Manhattan  directions  in  the  box  direction* 

•  if  found.  NM  directions  produce  syntax  errors.  With  • 

•  Manhattan  directions  dx  or  dy  is  always  equal  to  0,  so  * 

•  it  is  not  necessary  to  scale  the  direction.  • 

•  INPUTS:  sp  • 

•  OUTPUTS:  -box  * 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  totbox  • 

•  FILES  READ:  none  * 

•  FILES  WRITTEN:  none  • 

•  MODULES  CALLED:  box_bounds  /  skip.sep  /  get_integer  /  isdigit  • 

•  prt_error  /  get_point  * 

•  CALLING  MODULES: 

•  HISTORY:  N/A  • 

.  . . . . . . . . . . . 

struct  box  »ck_box(sp) 

char  »sp; 

( 

static  char 
static  long 
static  struct  box 
static  struct  point 


•tp; 

length,  width,  cx,  cy,  dx,  dy; 

newbox ; 

pt; 


dx  *  1L; 
dy  11  OL; 
tp  a  sp  ♦  1; 

if  <get_integer(sp,&tp,&length> >  return(NILL) ; 
if  (get_integer (sp,&tp,&width> )  return(NILL) ; 
if  (get_point<sp,&tp,&pt) ) 

”( 

prt_error(515,sp) ; 
return (NILL) ; 

) 

cx  *  pt.x; 
cy  *  pt.y ; 
skip_sep(fctp> ; 
if  (isdigit(*tp>  II  *tp  == 

( 

if  <get_point<sp,&tp,8.pt) ) 

”( 

prt_error(515,sp) ; 
return (NILL) ; 

I 

dx  *  pt.x; 
dy  *  pt.y; 

if  ( (dx  1*  OL  &&  dy  !=  OL)  II  (dx  **  OL  &&  dy  ** 
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( 

prt_error(513,sp> ; 
return(NILL) ; 

) 

) 

if  ( box_bounds (length , width , cx , cy , dx , dy , tnewbox ) ) 
~( 

prt_error (514, ep) ; 
return(NILL) ; 

) 

if  (notify)  ♦♦totbox; 
return (&newbox) ; 

) 


•  DATE:  27  OCT  1984 

•  VERSION:  1.0 

•  NAME:  ck_call 

•  SCNUMBER:  3.2.4 

•  FUNCTION:  Checks  syntax  of  call  coaaand,  if  errors  are  found 

•  returns  error  *  TRUE,  else  FALSE. 

«  INPUTS:  sp 

•  OUTPUTS:  error 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  totcall 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  get_integer  /  get_point  /  skip_blank  / 

•  prt_error 

•  CALLING  MODULES:  bld_st 

•  HISTORY:  N/A 


ck_call (sp) 
char  »sp; 

( 

static  char  tespc,  *tp; 

static  struct  point  pt; 

static  long  aya; 

tp  *  sp*l; 

if  (get_integer (sp,&tp,&aya) )  return(TRUE) ; 
if  (ck_range(sya)  I  I  sya  <  1L) 

( 

prt_error(509,sp) ; 
return (TRUE) ; 

) 

skip_blank(&tp) ; 
while  (»tp  ! *  ';') 

( 

switch  (*tp> 

( 


■J 1  <  I .  I'  . 


♦  ♦tp; 

if  (get_point(ap,S.tp, fi.pt) ) 

~( 

prt_error (517,ap) ; 
return (TRUE) ; 

1 

break; 
case  'R': 

♦  ♦tp; 

if  (get_point(sp,fi.tp, fi.pt) ) 

”( 

prt_error (517,sp) ; 
return (TRUE) ; 

) 

if  (pt.x  0  fi.fi.  pt.y  !=  0) 

( 

prt_error(520,sp) ; 
return(TRUE) ; 

) 

break; 
case  'M': 

♦  ♦tp; 

skip_blank(&tp> ; 
if  (*tp  ! *  'X'  fi.fi.  «tp  ! =  'Y'> 
( 

prt_error(5l7,ap) ; 
return(TRUE) ; 

) 

♦  ♦tp; 
break; 

default: 

prt_error (519, sp) ; 
return (TRUE); 

) 

skip_blank(&tp) ; 

) 

if  (notify)  ♦♦totcall; 
return(FALSE) ; 
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/•••••••••••••••••••••••••••••••••••••••••••••••••a************** 

•  DATE:  26  OCT  1984  * 

•  VERSION:  1.0  • 

•  NAME:  ck_layer  • 

«  SCNUMBER7  3.2.6 

•  FUNCTION:  Checks  syntax  of  layer  and  if  layer  name  is  in  layer* 

•  table.  Returns  error  *  TRUE  if  errors,  else  error*FALSE. • 

•  INPUTS:  sp 

•  OUTPUTS:  none  • 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  totlayer  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  none  • 

•  MODULES  CALLED:  skip_blank  /  isupper  /  iadigit  /  prt_error  • 

•  CALLING  MODULES:  build_st  • 

•  HISTORY:  N/A 

••#»»•»»•##•«»«••«*»«*•»*»•»•****»•»#»**••*•*•••*•••*•••*•*•••••/ 

ck_layer <sp) 
char  *sp; 

( 

static  int  found,  liait,  i,  J ; 

static  char  *tp,  shortnaae C41 ; 

tp  *  sp  ♦  1; 
skip_blank(&tp) ; 

if  ( (isupper <*tp>  &&  t iadigit<*tp) ) 

( 

prt_error<504,ap) ; 
return<TRUE>; 

) 

i  «  0; 

while  ( <iaupper(*tp)  II  iadigit<*tp> >  &&  (1  <  4)> 

( 

liait  =  i; 

shortnaae C i ♦ ♦ D  =  *tp; 

♦♦tp; 

) 

for  ( i*0;  i<=LAYERMAX;  **i) 

( 

for  (j*0;  3<*liait;  ♦♦3) 

( 

if  (layer Ci]  [3!  **  shortnaaeC3l )  found  =  TRUE 
else  found  *  FALSE; 

) 

if  (found)  break; 

) 

if  (i  >  LAYERMAX) 

( 

prt_error (505, sp) ; 
return(TRUE) ; 

) 

if  (notify)  ♦♦totlayer; 
return (FALSE) ; 


) 


. . . . . . . 

•  DATE:  9  OCT  1984 

•  VERSION:  1.0 

•  NAME:  ck_range 
«  SCNUMBER:  2.2.1 

•  FUNCTION:  checks  the  range  of  the  input  long  integer  to 

•  verify  that  it  is  a  valid  CIF-nuaber,  that  is: 

•  INFINITY  <  CIF-nusber  <  INFINITY 

•  Returns  error  *  TRUE  if  out  of  range,  else  returns  FALSE 

•  INPUTS:  long 

•  OUTPUTS:  error 

•  GLOBAL  VARIABLES  USED:  none 

■  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  NODULES  CALLED:  none 

•  CALLING  MODULES:  par_options 

•  history:  n/a 

••••••••••••••••«•••••••■••■••••••••••••••••••••••••••••••••••••/ 

ck_range<test) 
long  test; 

( 

test  *  (test  <  0)  ?  -test  :  test; 
if  (test  >  INFINITY)  return (TRUE) ; 
else  return (FALSE) ; 

) 

. . . . * . 

•  DATE:  27  OCT  1984  • 

t  VERSION:  1.0  * 

•  NAME:  ck_round  • 

•  SCNUMBER:  3.2.3  • 

•  FUNCTION:  Checks  Flash  Coasand  for  correct  syntax  and  reports  • 

•  errors.  Returns  pointer  to  box  with  correct  bounds  or  • 

•  NILL  if  errors  are  found.  * 

•  INPUTS:  sp 

•  OUTPUTS:  *box  • 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  totroundf lash 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  ck_bounds  /  get_integer  /  prt_error  * 

•  get_polnt  • 

•  CALLING  MODULES: 

«  HISTORY:  N/A  • 


struct  box  »ck_round(sp) 

char  *sp; 

( 

static  char 
static  long 
static  struct  box 
static  struct  point 


•tp; 
diaa; 
newbox ; 
Pt; 


♦♦tp; 

if  (get_integer (ap,fctp,ayanua> )  return(TRUE) ; 
if  (ck_range(»ayanua)  II  *ayanu«  <  1L) 

( 

prt_error (509, ap) ; 
return(TRUE) ; 

) 

if  ((taya  =  f ind_aya( »ayanua) )  I  *  NILL) 

( 

prt_error(1004,ap) ; 
taya->nuaber  *  0; 

) 

akip_aep(&tp) ; 
if  (ladiglt(»tp) ) 

( 

if  (get_integer(ap,&tp,paaacale) )  return(TRUE) 
if  (*paaacale  *=  0) 

( 

prt_error ( 51 1 , ap  > ; 
return (TRUE) ; 

) 

akip_aep(&tp) ; 
if  (TiadigitCtp)) 

( 

prt_error(512,ap) ; 
return (TRUE) ; 

) 

if  (get_integer(ap,&tp,pabacale) )  return(TRUE) 
if  (•pabacale  ««  0) 

( 

prt_error (511 ,ap) ; 
return (TRUE) ; 

) 

) 

if  (notify)  ♦♦totayabol; 
return(FALSE) ; 


DATE:  5  NOV  1984 
VERSION:  1.0 
NAME:  ck_wire 
SCNUNBER:  3.2.2 

FUNCTION:  Checks  Wire  Cossand  for  correct  syntax  and  reports 
errors.  Errors  are  also  produced  for  NonManhattan 
directions.  Returns  error  *  TRUE  if  found,  else  FALSE. 
Uses  change_bds  to  sodify  bounds  of  each  pair  of  points 
on  the  wire  and  then  adds  wire  width  to  all  four  bounds 
allow  for  the  width  of  the  wire.  This  is  all  that's  re¬ 
quired  for  finding  bounds  with  any  directions. 

INPUTS:  sp 
OUTPUTS:  *box 

GLOBAL  VARIABLES  USED:  notify 
GLOBAL  VARIABLES  CHANGED:  totwire 
FILES  READ:  none 
FILES  WRITTEN:  none 

NODULES  CALLED:  prt_error  /  get_point  /  change_bds  /  ck_bounds 
/  get_integer  /  akip_sep  /  isdlgit 
CALLING  NODULES:  build_st 
HISTORY:  N/A 


struct  box  *ck_wire(sp> 

char  *sp; 

( 

static  char 
static  long 
static  struct  box 
static  struct  point 
static  int 

tp  «  sp  ♦  1; 
if  (get_integer(ap,&tp,&width) )  return(NILL) ; 
if  (get_point<sp,&tp,&pt) ) 

{ 

prt_error<515,sp> ; 
return(NILL) ; 

) 

oldbox.xsin  *  oldbox.xaax  =  oldpt.x  *  pt.x; 

oldbox.yain  *  oldbox.ysax  *  oldpt.y  *  pt.y; 

done  *  FALSE; 
count  *  1; 
while  <tdone) 

C 

skip_sep(&tp> ; 
if  <Isdigit(*tp)  II  *tp  *= 

( 

if  (get_polnt(sp,&tp,&pt> ) 

( 

prt_error(515,sp) ; 
return(NILL) ; 

) 

If  (oldpt.x  !■  pt.x  &&  oldpt.y  !*  pt.y) 


•tp; 

width; 

oldbox,  newbox; 
pt,  oldpt; 
done,  count; 
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u  ■  u  ■  .  1  t 


{ 

prt_error (513, sp) ; 
return(NILL) ; 

) 

newbox.xmin  *  newbox.xmax  1  oldpt.x  =  pt.x 
newbox.ymin  =  newbox.ymax  *  oldpt.y  *  pt.y 
change_bds(&oldbox,&newbox) ; 

♦♦count; 

) 

else  done  =  TRUE; 

) 

if  (count  <  2)  prt_error(525,sp) ; 
width  /»  2; 
oldbox.xmin  -«  width; 
oldbox.ymin  -*  width; 
oldbox.xmax  ♦»  width; 
oldbox.ymax  ♦«  width; 
if  (ck_bounda(6.oldbox) ) 

( 

prt_error (514,sp) ; 
return(NILL) ; 

} 

if  (notify)  ♦♦totwire; 
return (&oldbox) ; 

) 

. . •  •••* . . . . . . 

•  date:  ib  oct  1984 

•  VERSION:  1.0 

•  NAME:  clip_box  • 

•  SCNUHBER:  4. 5. 2. 1.1  * 

•  FUNCTION:  Clips  first  input  box  to  dimensions  of  second  input  • 

•  input  box.  If  any  portion  is  Inside  returns  TRUE,  else  • 

•  FALSE.  Assumes  boxes  with  Manhattan  directions.  Also  • 

•  sets  the  four  sides  of  the  the  input  cliprec  to  TRUE  * 

•  for  each  side  that  has  been  NOT  been  clipped  by  the  * 

•  procedure.  • 

•  INPUTS:  boxl,  box2,  cliprec  • 

•  OUTPUTS:  inside  -  TRUE  if  inside,  else  FALSE 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  none  * 

•  CALLING  MODULES;  proc_call 
«  HISTORY:  N/A 

.  . . . . . . . . ...../ 

cl ip_box( boxl, box2, clipped) 
struct  box  *boxl,»box2; 

struct  cliprec  ‘clipped; 

( 


if  ((boxl->xmax  <=  box2->xmin)  II 
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(boxl-)yaax  <=  box2->yain>) 
if  ( (boxl->xain  >=  box2->xaax)  II 
(boxl-)yain  >=  box2->yaax)) 

if  <boxl->xain  <  box2->xain) 

< 

boxl->xain  =  box2->xain; 
clipped->left  =  TRUE; 

) 

else  clipped->left  =  FALSE; 
if  <boxl->yain  <  box2->yain> 

{ 

boxl->yain  =  box2->yain; 
clipped->bottoa  =  TRUE; 

) 

else  clipped->bottoa  =  FALSE; 
if  (boxl->xmax  >  box2->xaax) 

C 

boxl->xaax  *  box2->xaax; 
clipped->right  =  TRUE; 

) 

elae  clipped->right  =  FALSE; 
if  (boxl->yaax  >  box2->yaax) 

( 

boxl->yaax  =  box2->yaax; 
clipped-) top  =  TRUE; 

) 

•lae  clipped->top  *  FALSE; 


return(FALSE) ; 
return (FALSE) ; 


return (TRUE) ; 


DATE:  10  OCT  1984 
VERSION :  1.0 
NAME:  cpa_file 
SCNUMBER:  2.2.2 

FUNCTION:  Verifies  that  the  input  string  is  a  valid  CPM  file 
naae.  Returns  flag  =  TRUE  if  so,  else  FALSE  for  error. 
Checks  for: 

Correct  position  &  nuaber  of  and 

Characters 

Length  >  14 

User  areas  are  NOT  expected  in  the  filenaae 
INPUTS:  naae 
OUTPUTS:  none 

GLOBAL  VARIABLES  USED:  none 
GLOBAL  VARIABLES  CHANGED:  none 
FILES  READ:  none 
FILES  WRITTEN:  none 
NODULES  CALLED:  none 
CALLING  MODULES:  par_options 
HISTORY:  N/A 
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if  (record  <  127)  seek(fp->channel , offset, 0) ; 

else 

( 

seek (fp->channel, record, 3) ; 

if  (record  <  255)  offset  =  offset  *  256; 

seek(fp->channel , offset, 1 ) ; 

) 

) 

. . * . 

•  DATE:  26  OCT  1984  • 

•  VERSION:  1.0 

•  NAME:  find_sya  • 

•  SCNUNBER:  3.2.7. 1  • 

•  FUNCTION:  Find  pointer  to  sysbol  in  the  sysbol  table,  NILL  * 

•  returned  for  not  found.  * 

•  INPUTS:  sya_nuaber  * 

•  OUTPUTS:  *sy*bol  » 

•  GLOBAL  VARIABLES  USED:  table_top  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  * 

•  FILES  WRITTEN:  none  • 

«  MODULES  CALLED:  none 

•  CALLING  MODULES:  ck_atart  • 

•  HISTORY:  N/A 

I............................................. . . . . . . 

struct  sysbol  »f ind_sys(synnus) 

long  synnua; 

( 

static  struct  sysbol  »pt; 

if  (table_top  =*  NILL)  return(NILL) ; 
pt  *  table_top; 
while  (pt  7*  NILL) 

( 

if  (pt->nusber  *=  sysnus)  return(pt); 
pt  *  pt->next; 

) 

return(NILL) ; 


) 


static  int  teap; 

static  struct  fila  *f p; 

teap  =  f open ( name, aode ) ; 
if  (teap  **  0)  return ( NILL) ; 

fp  *  ((struct  file  •  )  sbrk(sizeof (struct  file))) 

if  (fp  **  -1)  prt_error (5003, NILL); 

strcpy (fp->naae,naae) ; 

atrcpy (fp->aode, aode) ; 

fp->channel  *  teap; 

return(fp) ; 


DATE:  21  NOV  1984 
VERSION:  1.0 
NAME:  file_seek 
SCNUHBER:  2.2.5. 1 

FUNCTION:  Does  a  randoa  access  in  the  input  file  to  the  offset 
specified  by  the  input  record  and  offset.  If  the  record 
is  greater  than  255,  then  the  input  offset  is  interpre¬ 
ted  as  a  as  a  byte  position  in  the  current  record. 

If  the  record  >  255  then  seek  is  done  to  the  specified 
record  and  then  another  seek  is  done  to  aove  the  pointer 
to  the  correct  location  in  the  record 
NOTE:  THE  SEEK  (VERSION  DATED  1/28/84)  FUNCTION  CALLED 
BY  THIS  PROCEDURE  HAS  BEEN  MODIFIED  AS  FOLLOWS: 

extern  char  IOnchC); 

ADDED  AFTER  THE  LINE:  extern  int  IOfcbtl; 

IOnchtfdes)  =  0; 

ADDED  AFTER  THE  LINE:  Sifdef  CPU 
IN  THE  pos  PROCEDURE 

INPUTS:  fp, offset,  record 
OUTPUTS:  none 

GLOBAL  VARIABLES  USED:  none 
GLOBAL  VARIABLES  CHANGED:  none 

FILES  READ:  fp  -  the  input  file  is  closed,  opened,  accessed 
FILES  WRITTEN:  none 
MODULES  CALLED:  seek 

CALLING  MODULES:  tracedown  /  proc_call 
HISTORY:  N/A 


f ile_aeek( fp, off set, record) 

struct  file  «fp; 

int  offset,  record; 

( 

char  c,  getcO; 

int  top,  newoffset,  newsec,  sec,  i; 
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) 


( 

oldbox.xmin  *  oldpt.x; 
oldbox.ymin  =  oldpt.y; 
oldbox.xmax  3  pt.x; 
oldbox.ymax  ■  pt.y; 

} 

else 

{ 

oldbox.xain  *  pt.x; 
oldbox.ymin  3  pt.y; 
oldbox.xmax  ■  oldpt.x; 
oldbox.ymax  z  oldpt.y; 

1 

oldbox.xain  -=  width; 

oldbox.ymin  -=  width; 

oldbox.xmax  ♦ =  width; 

oldbox.ymax  *3  width; 

trana_box(&oldbox, trana) ; 

if  (clip_box(&oldbox,(pwindow, (clipped) ) 

( 

trantoplot(&oldbox> ; 
put_box  ( (oldbox ,  cur  layer ,  (clipped  > 
) 

oldpt.x  3  pt.x; 
oldpt.y  ■  pt.y; 

) 

else  done  «  TRUE; 

J 


. . * . * . •*• 

DATE:  3  OCT  1984 
VERSION:  1.0 
NAME:  file_open 
SCNUMBER:  2.2.4 

FUNCTION:  Opena  the  named  file  in  the  correct  mode  and  returna 
a  pointer  to  a  file  atructure  if  no  errora  occur,  elae 
returna  NILL.  Allocatea  apace  for  a  file  atructure  and 
placea  the  filename,  channel,  and  mode  in  the  atructure. 
Allocation  routine  from  K(R. 

No  error  checking  ia  done  on  the  input  name  and  mode. 
INPUTS:  name,  mode 

OUTPUTS:  fp  (pointer  to  a  file  atructure) 

GLOBAL  VARIABLES  USED:  none 

GLOBAL  VARIABLES  CHANGED:  none 

FILES  READ:  none  (file  ia  opened  though) 

FILES  WRITTEN:  none 

MODULES  CALLED:  fopen  /  abrk  /  atrcpy  /  prt_error 
CALLING  MODULES:  par_optlona  /  open_pfile 
HISTORY:  N/A 


atruct  file  »f ile_open(name,mode) 

char  •name,  «mode; 

( 
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•  DATE:  9  NOV  1984  • 

•  VERSION:  1.0  * 

•  NAME:  do_wire  • 

•  SCNUHBER:  4.5. 2.2  • 

•  FUNCTION:  Reada  input  Wire  coaaand  and  deterainea  the  bounds  • 

•  of  the  wire.  For  each  two  points  of  the  wire,  outputs  a  * 

•  a  wire  of  the  correct  bounds  until  the  last  two  points  • 

•  are  found.  Modifies  the  boxes  according  to  the  input  • 

•  scale  and  transformation.  Clips  each  box  to  the  current  • 

•  page  dimensions  and  calls  put_box  to  output  the  box  to  • 

•  the  PLOT  file.  • 

•  INPUTS:  cos_string,  trans,  curlayer,  ayascale  • 

•  OUTPUTS:  none  • 

•  CLOBAL  VARIABLES  USED:  pwindow  • 

»  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  * 

•  FILES  WRITTEN:  none  • 

•  PROCEDURES  CALLED:  get_integer  /  get_point  /  akip_sep  /isdigit» 

•  clip_box  /  trans_box  /  trantoplot  /  put_box  • 

•  CALLING  PROCEDURES:  proc_call  /  do_page 

«  AUTHOR:  Kirk  S.  Horton  • 

•  HISTORY:  N/A 

. * . . 


do_wire <  sp, trans .curlayer , sysscale ) 
char  «sp; 

long  trans U  ; 

int  curlayer; 

float  sysscale; 

( 


static  char 
static  long 
static  struct  box 
static  struct  point 
static  int 

static  struct  cliprec 


*tp; 

width; 

oldbox,  newbox; 
pt,  oldpt; 
done; 
clipped; 


tp  *  sp  ♦  1; 

get_integer(sp,&tp,&width) ; 

width  «  (long)  width  *  sysscale  /  2; 

get_point(sp,&tp,&oldpt> ; 

oldpt. x  *  (long)  oldpt. x  •  sysscale; 

oldpt. y  *  (long)  oldpt. y  •  sysscale; 

done  «  FALSE; 

while  (!done) 

( 

skip_sep(&tp) ; 

if  (isdigit( »tp)  II  »tp  **  '■') 

( 

get_point(sp,&tp,6pt) ; 

pt.x  *  (long)  pt.x  •  sysscale; 

pt.y  *  (long)  pt.y  •  sysscale; 

if  (oldpt. y  <  pt.y  I  I  oldpt. x  <  pt.x) 


•  DATE:  9  MOV  1934 
«  VERSION:  1.0 

»  NAME:  do_round 

•  SCNUMBER:  4. 5. 2. 3 

•  FUNCTION:  Reads  input  Roundflash  coasand  and  deterainea  ita 

•  bounds  (roundflash  coaaands  are  output  as  square  boxes. 

•  Modifies  bounds  according  to  the  input  scale 

•  and  transformation.  Clips  the  box  to  the  current  page 

•  and  calls  put_box  to  output  the  box  to  the  PLOT  file. 

•  INPUTS:  coa_string,  trans,  curlayer,  syascale 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  pwindow 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  PROCEDURES  CALLED:  get_integer  /  get_point  /  clip_box  / 

•  trana_box  /  trantoplot  /  put_box 

•  CALLING  PROCEDURES:  proc_call  /  do_page 

•  AUTHOR:  Kirk  S.  Horton 

•  HISTORY:  N/A 


do_round ( ap, trans , curlayer , syascale) 

char  *sp; 

long  trans  I); 

int  curlayer; 

float  syascale; 

( 

static  char  »tp; 

static  long  dies; 

static  struct  box  newbox; 

static  struct  point  pt; 

static  struct  cllprec  clipped; 

tp  ■  sp  ♦  1; 

get_integer(ap,&tp,&diaa) ; 

diaa  ■  (long)  diaa  •  syascale  /  2L; 

get_point(sp,6tp,&pt) ; 

pt.x  s  (long)  pt.x  •  syascale; 

pt.y  *  (long)  pt.y  •  syascale; 

newbox. xain  a  pt.x  -  diaa; 

newbox. yain  =  pt.y  -  diaa; 

newbox. xaax  =  pt.x  ♦  diaa; 

newbox. yaax  a  pt.y  ♦  diaa; 

trans_box(&newbox, trans) ; 

if  (clip_box(&newbox,&pwindow,&clipped) ) 

( 

trantoplot(Snewbox) ; 
put_box (fcnewbox , curlayer , &cl ipped ) ; 
) 

) 
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/• 

/* 

/• 


/• 

/• 

/* 


) 


( 

switch  <»ap) 

{ 

csss  'B': 

do_box(sp, trana, curlayer , 1 .0) ; 
break; 
case  'W' : 

do_wlre(sp, trana, curlayer, 1.0) ; 
break; 
case  ' R': 

do_round (ap, trana, cur layer , 1 . 0) ; 
break; 
caae  'P': 

do_poly(sp, trana, curlayer,l .0) ; 
break; 
caae  'L' : 

curlayer  *  get_layer (ap) ; 
break; 
case  'C': 

curdepth  *  1 ; 
proc_call(ap, trana, 1.0) ; 
break; 
caae  ' 1 ' : 

do_lco»(ap) ; 
break; 
caae  '2': 

if (text)  do_2coa (ap, trana, 1.0) ; 
break; 
caae  '9': 

If  (polntnaae)  do_9xco*(ap, trana, NILL, 1 .0) 
break; 

) 

) 

) 

f close (execf ile->channel ) ; 
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puts("  "); 

puts(litoa(wxaax,coastore) ) ; 
puta("  ">; 

puts(litoa(wysin,coastore) ) ; 
puts("  "); 

puts < 1 itoa ( vyeax .coeatore > ) ; 
puta("\n") ; 

) 

puts ("Input  CIF  f ile->  "); 
puts(cif_f ile->naee) ; 
put8(“\n") ; 
if(outfile) 

( 

puts ("specified  output  file->  “); 
puts(outf name) ; 
puta(“\n“) ; 

) 

1 


•  DATE:  9  NOV  1984 

•  VERSION:  1.0 

•  NAME:  do_page 

•  SCNUMBER:  4.5.2 

•  FUNCTION:  Reads  in  commands  fros  the  EXECUTABLE  file.  All 

•  executable  coesands  are  output  directly  to  the  PLOT 

•  file  if  they  fall  within  the  current  page  boundries.  All 

•  Call  coesands  cause  a  call  to  proc_call  with  the 

•  current (input)  transforaation 

•  The  EXECUTABLE  file  is  closed  on  exit. 

•  INPUTS:  trans 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  extension,  pointnene 

•  GLOBAL  VARIABLES  CHANGED:  exec_file,  curdepth 

•  FILES  READ:  EXECUTABLE 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  fopen  /  get_ex_coa  /  get_layer  /  proc_call 

•  do_9xcoa  /  do_box  /  do_wire  /  do_lcoe  /  do_round 

•  fclose  /  isdigit 

•  CALLING  MODULES:  plot  page 

•  HISTORY:  N/A 


do_page (trans) 
float  trans Cl; 

( 

static  int  curlayer; 

static  char  *sp; 

char  »get_ex_cos( ) ; 

exec_f ile->channel  s  fopen(exec_file->naae,"r") ; 
while  (»(sp  =  get_ex_coe(exec_f ile) )  !*  'E') 

( 

if  (isdigit(*sp)  &&  {extension); 
else 


if  (makepage)  puta(nl); 
else  puta(n2); 

putaCaccepting  user  extensions”) ; 
if  (extanaion)  puta(nl); 
elae  puta(n2); 

puts (“treating  coaaanta  aa  spaces”); 
if  (consents)  puta(nl); 
else  puts(n2); 
putaCwriting  pointnanea”) ; 
if  (pointnane)  puta(nl); 
else  puts(n2); 

putaCwriting  aynbolnanea”) ; 
if  (aynbolnane)  puta(nl); 
elae  puta(n2); 

putaCwriting  extension  2  text”); 
if  (text)  puta(nl); 
else  puta(n2); 

puts( "drawing  layer  outline”); 
if  (outline)  puta(nl); 
elae  puts(n2); 

putsCdrawing  symbol  bounding  box”); 
if  (bbox)  puta(nl); 
else  puts(n2); 
if  (banner) 

( 

putaCplot  banner  apecified->  ” 
puta(bantext) ; 

) 

if  (transfer) 

( 

puts( "transfer  control  to  ”); 

puta(trnane) ; 

putaC  when  doneNn"); 

) 

puta  ("symbol  depth  linit->  ">; 
puta(lltoa(depth,comstore) ) ; 
puta(“\n") ; 
if  (grid) 

( 

putsCdraw  grid  with  spacing-> 
puta ( 1 itoa (gridspace,constore) ) 
putsCVn") ; 

) 

if  (scale) 

( 

putaCnew  scale  specif ied->  "); 
ftoa( 'F' ,7,scalenum,comstore> ; 
puta(comatore) ; 
putsCSn”) ; 

) 

if  (window) 

( 

putsCwindow  specif ied->  ”>; 
puta(litoa(wxmin(comstore) ) ; 


return; 

) 

if  (pnum  ■*  1) 

( 

duniiy  *  litoa(gridspace,&outC6] ) ; 
strcat(out,"\015\012") ; 
pc_text(out,plot_f ile->channel ) ; 

1 

tiaaa  *  (int)  teat; 

bottom  *  (float)  viewport  •  (ydif  -  xdif); 
pc_color (BLACK, plot_f ile- >channel ) ; 
for(i»l;  i<*timea;  **1) 

{ 

test  *  gridapace  *  i; 

increment  *  (float)  viewport  *  test; 

if  (test  <  =  pwindow.xmax) 

pc_draw(0.0, (1.0- increment) ,1.0, (1.0-increment) , plot_f ile->channel) 
pc_draw (increment, bottom, increment, 1 .0,plot_f ile->channel) ; 
) 


) 

/•• . . . •••«•••••«•••• . 

«  DATE:  25  OCT  B4  • 

•  VERSION:  1.0  • 

•  NAME:  do_notify  • 

•  SCNUHBER:  2.3  » 

•  FUNCTION:  Diplaya  status  of  Control  Variables  to  Standard  out.* 

•  INPUTS:  none  * 

•  OUTPUTS:  none  • 

»  GLOBAL  VARIABLES  USED:  Control  variables  * 

•  GLOBAL  VARIABLES  CHANGED:  coaatore  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  none 

•  NODULES  CALLED:  puts  /  lltoa  /  ftoa  • 

•  CALLING  NODULES:  int.command  • 

•  HISTORY:  N/A  * 

. . 

do_notify ( ) 

( 

static  int  nl  *  ”  is  ENABLED\n”; 

static  int  n2  *  “  is  SUPPRESSEDVn"; 

char  *litoa(); 

puts(”\ninteractive  plotting") ; 

if  (interactive)  puts(nl); 

else  puts(n2>; 

puts(**plot  rotation"); 

if  (rotate)  puts(nl); 

else  puts(n2); 

puts( "quiet  mode"); 

if  (quiet)  puts(nl); 

else  puts(n2>; 

putsCmake  one  page  plot"); 
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dy  *  pt.y; 

) 

length  *  length  •  eyases le; 
width  ■  width  •  syascale; 
cx  *  cx  •  ayascale; 
cy  «  cy  "  syaacale; 

box_bounda ( length , width , cx , cy , dx , dy , tnewbox ) ; 
trana_box(&newbox,trans) ; 
if  (clip_box(&newbox,&pwindow,&clipped) ) 

T 

trantoplot (finewbox) ; 

put_box  (Gnewbox , cur layer , ^clipped ) ; 

) 


. . •»•#**•*• . . . . . . . ••« 

•  DATE:  9  HOV  1984 

•  VERSION:  1.0 

•  NAME:  do_grid 

•  SCNUMBER:  4.S.1 

•  FUNCTION:  Writea  a  grid  aeperated  by  gridapace  to  the  PLOT 

•  file.  Calcultiona  are  alaplified  becauae  a  aquare  grid 

•  ia  written  to  a  aquare  page.  The  nuaber  of  grid  linea 

•  ia  calculated  (long  diviaion  truncates  the  fractional 

•  part)  and  used  to  count  the  nuaber  of  linea  drawn  on 

•  the  plot.  The  tranaforaation  to  PLOT.COM'a  coordinates 

•  ia  made  by  aultiplying  by  viewport  and  subtracting  the 

•  y  value  in  the  x  direction  grid  line  froa  1.0. 

•  INPUTS:  pnua  -  page  nuaber  being  plotted 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  cif_file,  gridapace,  viewport,  pwindow 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  pc_color  /  pc_draw  /  pc_text  /  litoa  /  street 

•  prt_error 

•  CALLING  MODULES:  plot_page 

•  HISTORY:  N/A 

. . . . . 


do_grld(pnua) 


pnua; 

- 

static 

int 

tiaea,  i; 

static 

float 

bottoa,  increaent; 

static 

long 

ydif,  xdif,  teat; 

static 

char 

duaay,  out [20)  ■  "Grid: 

char 

•litoa ( ) ; 

ydif  *  pwindow. yaax  -  pwindow. yain; 
xdif  *  pwindow. xaax  -  pwindow. xain; 
teat  ■  ydif  /  gridapace; 
if  (teat  >  2200) 

( 

if  (pnua 


1)  prt_error(2000,NILL) 


xc  *  (float)  viewport  •  tbox.xmin; 
yc  =  (float)  viewport  •  tbox.yeln; 
pc_strlng(xc,yc,ap,plot_f ile->channel) ; 
) 


•  DATE:  9  NOV  84  • 

•  VERSION:  1.0  » 

•  NAME:  do_box  « 

•  SCNUMBER:  4.5.2. 1  • 

•  FUNCTION:  Reads  Input  BOX  coeaand  and  determines  the  bounds  of* 

•  of  the  box.  Modifies  bounds  according  to  the  input  scale* 

•  and  transformation.  Clips  the  box  to  the  current  page  • 

•  and  calls  put_box  to  output  the  box  to  the  PLOT  file.  * 

•  INPUTS:  com_string,  trans,  curlayer,  symscale  * 

•  OUTPUTS:  none  • 

•  GLOBAL  VARIABLES  USED:  pwindow  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  * 

•  FILES  WRITTEN:  none  * 

«  PROCEDURES  CALLED:  get_integer  /  get_point  /  skip_aep  /iadigit* 

•  box_bounda  /  clip_box  /  trans_box  /  trantoplot  /  put_box* 

•  CALLING  PROCEDURES:  proc_call  /  do_page  • 

•  AUTHOR:  Kirk  S.  Horton  * 

•  HISTORY:  N/A  • 

. . 


do_box(sp, trans, curlayer, symscale) 


char 

long 

int 

float 

( 

•ap; 

trans [) ; 

curlayer; 

symscale; 

static  int 

inside; 

static  char 

•  tp; 

static  long 

length,  width 

static  struct 

box 

newbox; 

static  struct 

point 

pt; 

static  struct 

cliprec 

clipped; 

dx,  dy; 


dx  =  1L; 
dy  *  OL; 
tp  *  ap  ♦  1; 

get_integer (sp,&tp,&length) ; 
get_integer(ap,&tp,&width) ; 
get_polnt(sp,&tp,&pt) ; 
cx  *  pt.x; 
cy  *  pt.y ; 
skip_sep(&tp> ; 

if  (isdigit(*tp)  II  *tp  **  '-') 
( 

get_point(sp,&tp,&pt) ; 
dx  *  pt.x; 
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static  long  half,  temp,  width; 

static  struct  box  tbox; 

static  int  four,  newcount,  count; 

static  struct  cliprec  clipped; 

static  char  »tp; 

static  float  xc,  yc; 

static  struct  point  pt; 

width  =  (pwindow. ysax  -  pwindow. ysin)  /  PLOTCHARS; 

♦♦sp; 

four  *  FALSE; 
if  («sp  33  '4') 

( 

♦♦sp; 

four  *  TRUE; 

) 

while  (isspace(*sp) )  ♦♦sp; 
tp  =  sp; 

while  (»tp  !*  &&  S (isspace(*tp> ) )  **tp; 

•tp  *  NULL; 
count  3  strlen(sp); 
if  (four) 

( 

♦♦tp; 

get_point(ap,6.tp,&pt) ; 
pt.x  =  (long)  pt.x  •  scale; 
pt.y  *  (long)  pt.y  *  scale; 
tbox.xmin  3  tbox.xsax  =  pt.x; 
tbox. ysin  *  tbox.ysax  =  pt.y; 

) 

else 

( 

tbox.xain  *  sypt->sxsin; 
tbox.xsax  «  sypt->sxsax; 
tbox. ysin  3  sypt->sysin; 
tbox.ysax  3  sypt->sysax; 

) 

trans_box(&tbox,trans) ; 
if  (clip_box(&tbox,&pwindow,&clipped) ) 

{ 

trantoplot(&tbox) ; 

if  (four)  tbox.xsax  3  pwindow. ysax; 
teap  *  (tbox.xsax  -  tbox.xain)  /  width; 
newcount  3  (int)  tesp; 

if  (count  >  newcount)  »(ap  ♦  newcount)  =  NULL; 
if  (tesp  >  0) 

( 

if  <!four) 

( 

tbox.xain  ♦=  width; 
tbox. ysin  -*  ((3  •  width)  /  2); 
if  (tbox.xain  <  pwindow. xsin)  tbox.xain  3  pwindow. xsin 
if  (tbox. ysin  <  pwindow. ysin)  tbox. ysin  3  pwindow. ysin 
) 
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•  DATE:  26  SEP  1984 

•  VERSION:  1.0 

»  NAME:  do_lcoa 
»  SCNUHBER:  3.2.8 

•  FUNCTION:  Diaplaya  aeasage  fro*  Uaer  Extenaion  1  to  atd  out 

•  INPUTS:  ap 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  puta 

•  CALLING  MODULES:  bld_et  /  wrt_ex_file 

•  HISTORY:  N/A 


do_lcoa(ap) 
char  *ap; 
l 

If  (notify)  **totextenaion; 
puta(ap) ; 
putaC*\n“) ; 

) 


•  DATE:  9  NOV  84 

•  VERSION:  1.0 

•  NAME:  do_9xco* 

•  SCNUMBER:  4. 5. 2. 6 

•  FUNCTION:  Writea  the  appropriate  PLOT  atring  coaaand  to  the 

•  PLOT  file  for  text  apecified  by  the  CIF  9  or  94  exten- 

•  aion.  The  text  for  a  9  co**and  la  clipped  to  the  ayabol 

•  bounding  box  in  the  ydlrection  (after  tranaforaationa 

»  are  applied)  and  ia  not  clipped  in  the  x  direction.  94 

•  coaaanda  are  clipped  to  the  page  boundriea  only.  All 

•  text  printa  in  the  y  direction,  regardleaa  of  tranafor- 

•  aationa. 

•  INPUTS:  ap,  trana,  aypt,  acale 

•  OUTPUTS:  none 

«  GLOBAL  VARIABLES  USED:  pwindow,  viewport 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  PROCEDURES  CALLED:  iaapace  /  pc_atring  /  trantoplot  /  clip_box 

•  trana_box  /  atrlen  /  get_point 

•  CALLING  PROCEDURES:  proc_call  /  do_page 

•  AUTHOR:  Kirk  S.  Horton 

•  HISTORY:  N/A 


do_9xcoa ( ap , trana, aypt , acale) 
char  *ap; 

float  acale,  tranaO; 

struct  ayabol  »aypt; 

{ 


cps_f lie (name) 
char  »nase; 

( 

static  int  place,  pplace,  cplace,  period,  colon; 

static  char  *sp; 

sp  =  none; 

period  =  pplace  *  colon  =  cplace  =  0; 
place  *  0; 
while  (»sp) 

{ 

if  (♦♦place  >  14)  return(FALSE) ; 
if  (*sp  *=  '/'  I  I 
•  sp  ==  '  =  '  II 
•sp  **  ' ; '  I  i 

•sp  *«  >  return(FALSE) ; 

if  ( *sp  •= 

( 

♦♦period; 
pplace  *  place; 

) 

else  if  (*sp  *= 

( 

♦♦colon; 
cplace  *  place; 

) 

♦♦sp; 

) 

if  (period  >111  colon  >  1)  return(FALSE) ; 
if  (colon) 

( 

if  (cplace  1=  2)  return(FALSE) ; 

if  (pplace  >  11  I  I  pplace  3)  return(FALSE) 

if  ({period  &&  place  >  10)  return(FALSE) ; 

) 

if  (period) 

{ 

if  (pplace  ”  1)  return(FALSE) ; 
if  (Icolon  S>&  pplace  >  9)  return  (FALSE) ; 
if  ((place  -  pplace)  >  4)  return(FALSE) ; 

) 

if  ({colon  &&  {period  &&  place  >  8)  return (FALSE) ; 
return (TRUE) ; 


. . . . *••••• 

•  DATE:  26  OCT  1984 

•  VERSION:  1.0  • 

•  NAME:  fskp_blank  * 

«  SCNUNBER:  3.1.2  • 

•  FUNCTION:  Skips  CIF  blank  characters  in  file  specified  by  fp  • 

•  and  returns  first  non-blank  character.  • 

•  INPUTS:  fp 

•  OUTPUTS:  nonblank  • 

•  GLOBAL  VARIABLES  USED:  none  * 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  fp  (CIF) 

•  FILES  WRITTEN:  none  • 

•  NODULES  CALLED:  iadigit  /  isupper  /  getc  /  add_line  • 

•  CALLING  NODULES:  get_cif_co*  • 

•  HISTORY:  N/A  • 

. . . . . . . . 

char  fskp_blank(f p) 

struct  file  *fp; 

( 

static  char  c; 

char  getcO; 

while  < (c* <getc<fp->channel > > >  !«  EOF) 

( 

if  (c  ««  NEWLINE  &&  tend)  add_line(); 
if  (c  »«  n 

c  ' ('  It 

c  **  ')'  II 

c  II 

isdigit(c)  II 

ieupper(c))  break; 

) 

return(c) ; 

) 

/»«(••>•••••■•■••••••••••■••••••••••••••••••••••••••••••••••••••* 

•  DATE:  26  SEP  1984 

•  VERSION:  1.0  * 

•  NAME:  fakp_co**ent  • 

•  SCNUNBER:  3.1.1  • 

•  FUNCTION:  Skips  all  characters  until  ')',  if  EOF  is  found  • 

•  then  fatal  error  produced.  Recursively  calls  itself  if  • 

•  '('is  encountered  before  end.  • 

•  INPUTS:  fp  • 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  end  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  fp  (usually  CIF  file) 

•  FILES  WRITTEN:  none 

•  NODULES  CALLED:  getc  /  prt_error  /  fskp_co«*ent  /  add_line  • 

•  CALLING  NODULES:  get_cif_co»  /  fskp_cos*ent  • 

•  HISTORY:  N/A 


C- 


,,,  ^  ; 


£ akp_coasent ( f p) 
struct  file  »fp; 

( 

static  char  tespc; 
char  getcO; 

while  < (tespc  =  getc(fp->channel ) )  t*  EOF  &&  tespc  !=  ')') 

( 

if  (tespc  ««  '(')  f skp_cossent (f p) ; 
if  (tespc  =  *  NEWLINE  &&  Send)  add.lineO; 

) 

if  (tespc  «*  EOF)  prt_error( 10,NILL> ; 

) 

. . . . . 

•  DATE:  25  OCT  1984  • 

•  VERSION:  1.0  * 

•  NAME:  get_cad_opt  • 

•  SCNUHBER:~2.2~ 

•  FUNCTION:  Opens  CADRC  file  (if  it  exists)  and  creates  two  • 

•  paraseters  with  the  ease  fors  as  of  argv  and  argc  which  • 

•  are  passed  to  par_options  to  sodify  the  Control  • 

•  Variables  as  required.  Options  are  parsed  which  follow  • 

•  the  word  seif plot  in  the  CADRC  file.  • 

•  INPUTS:  none 

•  OUTPUTS:  none  • 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  CADRC  • 

•  FILES  WRITTEN:  none  • 

•  NODULES  CALLED:  fopen  /  gate  /  index  /  feiose  /  par_options  * 

•  isalpha  /  iaspace  • 

•  CALLING  NODULES:  int_options  • 

•  HISTORY:  N/A  • 

. . 

get_cad_optO 

( 

static  int  found,  i,  chan,  cargc,  done; 

static  char  «pt,  c,  »cargv CCADOPTMAXl ; 

char  getcO; 

chan  =  fopen(CADNAME,"r") ; 
if  (chan  *s  0)  return; 
found  =  done  ■  FALSE; 
while  ((done) 

( 

i  =  0; 

while((c  *  getc(chan))  Is  EOF) 

( 

if  (i  >  127) 

( 

whlle((c  =  getc(chan))  !*  EOF  S>&  c  !  = 
1 

coaatoreCi]  *  c; 
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coaatoreti)  a  HULL 
break; 

) 

) 

i  »  index<coaetore,"*cifplot“> ; 

if  (1  *■  0)  found  *  done  =  TRUE; 
if  (c  ■*  EOF)  done  *  TRUE; 

) 

if  (Jfound)  return; 
cargo  *  i  *  0; 
pt  =  s.coaatore  CO) ; 
while  (»pt) 

{ 

cargvCi)  =  pt; 
if  <»pt  *= 

( 

♦  ♦pt; 

cargvCi]  *  pt; 

while  <«pt  J=  &&  pt)  ♦ 

if  (pt  ««  '••') 

( 

•pt  *  NULL; 

♦  ♦pt; 

) 

) 

while  ( isalpha( *pt)  II 
ladigit(*pt)  I l 
•pt  **  ' . '  II 
•  pt  I  I 

•pt  «*  ' : '  ii 
•pt  >  ♦♦Pt; 

if  (*pt  1*  HULL) 

( 

•pt  =  NULL; 

♦♦pt; 

I 

while  < iaspace< »pt> )  **pt; 

♦♦cargo; 

if  <♦♦!  >=  CADOPTMAX)  break; 

) 

par_optiona(cargc,caigv,TRUE> ; 
fcloae(chan) ; 


•  DATE:  5  NOV  1984  , 

•  VERSION:  1.0  , 

»  NAME:  get_cif_coa  . 

•  SCNUNBER: ~3. 1_  , 

•  FUNCTION:  Gets  one  CIF  coaaand  froi  the  input  file  structure.  * 

•  Cossent  cossands  are  filtered  out  and  the  file  is  read  • 

•  sequentially  on  each  subsequent  call  until  EOF  is  • 

•  found  (NULL  returned  then).  If  the  CIF  coaaand  is  • 

•  outside  of  a  symbol  (outsya  *  TRUE),  then  coa_offset  and* 

•  and  coa_record  are  set  to  the  current  read  pointer.  * 

•  INPUTS:  fp,  outsya  • 

»  OUTPUTS:  coa_string  . 

•  GLOBAL  VARIABLES  USED:  end  . 

•  GLOBAL  VARIABLES  CHANGED:  coa_offset,  coa_record,  totcoaaand  • 

•  totccoaaent  . 

•  FILES  READ:  fp  (in  most  cases  the  CIF  file)  * 

•  FILES  WRITTEN:  none  „ 

»  NODULES  CALLED:  getc  J  fskp_coaaent  /  fskp_coaaent  /  prt_error* 

•  ftell  /  ftellr  /  add_line 

•  CALLING  NODULES:  parse  cif 

•  HISTORY:  N/A  , 

.  . . . . . . 

char  *get_cif_coa(fp, outsya) 
struct  file  *fp; 
int  outsya; 

I 

static  char  teapc; 

static  int  i; 

char  getcO,  fakp_blank( ) ; 

coastoretO)  =  NULL; 

while  ((teapc  *  (fakp  blank(fp)))  =  =  '(') 

( 

f akpcoaaent (f p) ; 

while  ((teapc  =  getc(f p->channel ) >  t  =  EOF  &&  teapc  ! 
if  (notify  &&  tend) 

( 

♦♦totcoaaand; 

♦♦totccoaaent; 

) 

if  (teapc  ==  EOF)  return ( NULL) ; 

) 

if  (outsya) 

( 

coa_offset  =  ftell (fp->channel) ; 
coa_record  =  ftellr (fp->channel) ; 

) 

1*0; 

while  (teapc  !*  EOF  &S.  teapc  !*  ';') 

{ 

if  (teapc  *=  NEWLINE  S.&  tend)  add  lineO; 
if  (i  <  (NAXCONLEN  -  2)) 

( 


(')  fakp_conment(fp) 


if  (comments  33  TRUE  &£>  tempc  33  ' 
else  comstore Ci+*]  *  tempo; 
tempo  *  getc(fp->channel) ; 

) 

else 

( 

while  ((tempo  *  getc(fp->channel ) )  !=  EOF  &&  tempo  != 

( 

if  (tempo  33  NEWLINE  &&  lend)  add_line<); 
} 

comstore Ci*»)  *  tempo; 
prt_error (522, comstore) ; 

) 

) 

if  (tempo  !=  EOF) 

( 

comstoreCi]  =  tempo; 

comstore C++i]  «  NULL; 

if  (notify  &&  tend)  ♦♦totcomnand; 

) 

else  comstoreCi]  3  NULL; 
return (comstore) ; 

) 

/•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••a** 

•  DATE;  9  NOV  1984  • 

•  VERSION;  1.0  • 

•  NAME:  get  ex  con  • 

•  SCNUHBER: ~4.I.l  • 

•  FUNCTION:  Gets  the  next  command  from  the  EXECUTABLE  file  into  • 

•  a  string  array  and  returns  it.  The  last  command  is  * 

•  always  the  CIF  'E'  command.  • 

•  INPUTS:  fp  -  pointer  to  EXECUTABLE  file's  file  structure 

•  OUTPUTS:  com_atring  -  one  CIF  command  from  EXECUTABLE  file  • 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  comstore  • 

•  FILES  READ:  EXECUTABLE  file 

•  FILES  WRITTEN:  none  • 

•  MODULES  CALLED:  getc  /  fskp_blank  * 

•  CALLING  MODULES:  trace_table  • 

•  HISTORY:  N/A 

. . . . 

char  »get_ex_com(fp) 
struct  file  *fp; 

( 

static  char  c; 

static  int  i; 

char  £akp_blank( ) ,  getcO; 

comstoreCO]  *  fskp_blank(fp) ; 
if  (comstoreCO]  33  'E') 

( 

comstoreCi]  3  NULL; 
return (comstore) ; 
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» 

i*i: 

while  ((c  *  getc(fp->channel ) )  Is  &&  c  !=  EOF) 

( 

coastoredl  =  c; 

♦  ♦i; 

) 

if  (c  ';') 

( 

coastored]  *  c; 

♦♦i; 

) 

coastored]  *  NULL; 
return (coastore) ; 

) 

. . . . * . . . . . 

•  DATE:  30  SEP  1984  • 

•  VERSION:  1.0 

•  NAME:  get_integer  • 

•  SCNUNBER : ~3 . 2 . 1 . 1 

•  FUNCTION:  Gets  one  integer  froa  the  input  string  and  returns  • 

•  error  *  TRUE  if  errors  are  found.  Errors  are  reported  • 

•  for  bad  integer  reads,  signed  Integers  and  integers  • 

•  out  of  range.  Nodifiea  the  input  pointer  (the  pointer  • 

>  to  its  storage  location  is  passed)  to  point  to  the  first* 

•  non-integer  character  after  the  integer  that  is  read.  • 

•  INPUTS:  coa_string,  sploc,  tint  • 

•  OUTPUTS:  error  « 

•  GLOBAL  VARIABLES  USED:  none  « 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  * 

•  FILES  WRITTEN:  none  • 

•  MODULES  CALLED:  isdigit  /  latoi  /  ck_range  /  prt_error  • 

•  skip.aep  • 

•  CALLING  MODULES:  ck_delete  /  ck_box  • 

•  history:  n/a  • 

get_lnteger(coa_atring> sploc, tint) 
char  *coa_atrlng,  •* sploc; 

long  *tint; 

( 

long  latoi  O; 

static  char  ascii (11]; 

static  int  i; 

skip_sep( sploc) ; 
if  <**sploc  =  =  '-') 

( 

prt_error (507,coa_string) ; 
return (TRUE); 

) 

i  «  0; 
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while  ( isdigit ( ••sploc)  &&  i  <  10) 

( 

aaciiti**!  ■  *»aploc; 

♦♦(•sploc) ; 

) 

if  (i  »'  0) 

( 

prt_error(506,coa_string) ; 
return (TRUE) ; 

) 

else  ascii (il  *  NULL; 

•tint  *  latoi(aacii) ; 
if  (ck_range(«tint) ) 

C 

prt_error (508, co*_atring) ; 
return(TRUE) ; 

) 

return (FALSE) ; 

) 

. . . . . . . . 

•  DATE:  9  NOV  1984 

•  VERSION:  1.0 

•  NAME:  get_layer 

•  SCNUNBER : ~4 . 5 . 2 . 4 

•  FUNCTION:  Gets  string  fros  layer  cossand  and  coapares  it  with 

•  global  layer!!  list.  When  found  returns  the  Matching 

«  global  color !!. 

•  INPUTS:  sp 

•  OUTPUTS:  color 

•  GLOBAL  VARIABLES  USED:  color!!,  layer!) 

•  GLOBAL  VARIABLES  CHANGED: 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  isupper  /  isdigit  /  skip.blank 

•  CALLING  MODULES:  do_page 

•  HISTORY:  N/A 

. . . . 

get_layer (sp) 
char  •sp; 

( 

static  int  found,  lisit,  i,  j; 

static  char  shortnase  [4! ; 

♦♦sp; 

8kip_blank(&sp> ; 
i  «  0; 

while  ( (isupper ( »sp)  II  isdigit(*ap> )  &&  (i  <  4)) 

( 

liait  *  i; 

shortneae!i*+l  *  •sp; 

♦*sp; 

) 

for  (i*0;  iOLAYERHAX;  •♦!) 
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{ 

for  (j'O;  j<=liait;  ♦♦j) 

( 

if  ClayerCi]  [3]  **  shortness^] )  found  =  TRUE; 
else  found  *  FALSE; 

} 

if  (found)  break; 

) 

return (color  til ) ; 

) 

/••••••••■•••■••••••••••••••••••••••••••••••••••••••••••••••••••a 

•  DATE:  7  NOV  1984  • 

•  VERSION:  1.0 

•  NAME:  get_pattern  • 

•  SCNUMBER : ~2 . 2 . 3  * 

•  FUNCTION:  Opens  the  PATTERN  file  and  reads  in  new  layer  names  • 

•  and  PLOT.COM  colors.  Up  to  IS  new  layers  can  be  sped-  • 

•  fled.  Fatal  errors  are  generated  if  the  PATTERN  file  • 

•  does  not  exist  or  if  it  contains  incorrect  syntax.  • 

•  INPUTS:  nase  * 

•  OUTPUTS:  none  • 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  color,  layer,  patstring  • 

•  FILES  READ:  PATTERN 

•  FILES  WRITTEN:  none  * 

•  NODULES  CALLED:  fopen  /  getc  I  fclose  /  prt_error  /  isspace  • 

•  iadigit  /  sbrk  • 

•  CALLING  MODULES:  par_options  • 

•  HISTORY:  N/A  • 

•••••••••••«•••••••*•*••«•••••*••••••••••••••••••••••••••*••••••/ 

get_pattern(nase) 

char  *na*e; 

( 

static  int  done,  tcolor,  skip,  count,  3,  i,  chan; 

char  stg[7],  c,  getcO,  type; 

chon  *  fopen (nase, "r" ) ; 

if  (chan  ■■  0)  prt_error(102,naae) ; 

type  *  getc(chan); 

getc (chan) ; 

patstring  =  sbrk(12S); 

if  (patstring  **  -1)  prt_error(5004,NILL) ; 
if  (type  ■«  '1') 

( 

count  *  0; 
done  e  FALSE; 

while  (count  <  LAYERMAX  &&  idone) 

( 

skip  =  FALSE; 

for  (i=0;  i<7;  **i)  stg(i)  =  NULL; 
i  =  0; 

vhile((c  *  getc(chan))  !=  EOF) 

( 


C-50 


if  <i  -•  0  &&  c  **  ';') 

( 

while((c  *  getc(chan))  !  «  EOF  S.&  c  !  =  NEWLINE) 
skip  *  TRUE; 
break; 

) 

if  (c  NEWLINE) 

C 

patstring  CD  *  NULL; 
break; 

) 

patstring Ci)  *  c; 

if  (♦♦!  >  100)  prt_error(14,NILL) ; 

) 

if  <c  *=  EOF)  done  *  skip  ®  TRUE; 
i  *  0; 

whiledskip  &&  !  isspace ( patstring  C i ] ) ) 

{ 

if  <i  >  3)  prt_error(17,NILL) ; 
layer [count] Ci)  *  patstring ti) ; 
i**; 

) 

if  (i  <  3)  for  (]*i;  ]<*3;  ♦♦j)  layer [count] [3]  «  NULL 
whiledskip  &&  isspace  (patstring  [il ) )  ♦  ♦!; 

3  B  0; 

whiledskip  &&  isdigit (patstring  [i] ) ) 
l 

if  (3  >  2)  prt_error(17,NILL> ; 
atg[3]  *  patstring [i] ; 

♦♦i; 

) 

if  dskip) 

( 

tcolor  *  atoi(stg); 

if  (tcolor  <011  tcolor  >  127)  prt_error(17,NILL) ; 
else  color [count]  *  tcolor; 

♦♦count; 

) 

) 

) 

else  prt_error ( 17,NILL> ; 
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. . *••*••* . • . . 

•  DATE:  27  OCT  1984  • 

•  VERSION:  1.0  • 

•  NAME:  get_point  • 

•  SCNUMBER : ~3 . 2 . 1 . 2  • 

•  FUNCTION:  Gets  one  point  from  the  input  string  and  incresents  • 

•  (via  pointer)  the  input  string  pointer  to  point  to  the  • 

•  first  non-digit  after  the  point.  The  point  is  stored  • 

•  indirectly  in  the  input  point  structure.  Reports  errors  * 

•  by  returning  error  =  TRUE;  • 

•  INPUTS:  cos_string,  sploc,  point  • 

•  OUTPUTS:  error 

•  GLOBAL  VARIABLES  USED:  none  * 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  none  • 

•  MODULES  CALLED:  isdigit  /  skip_sep  /  get_integer  • 

•  CALLING  MODULES:  ck_box  * 

«  HISTORY:  N/A  • 

. . . . . . . . 

get_point ( coa_str ing .spioc.pt) 

char  •coa_atring,  ••sploc; 

struct  point  *pt; 

( 

static  long  tint; 

static  char  ascii  (11); 

static  int  sign; 

sign  ■  1; 
skip_sep(sploc) ; 
if  < • *sploc  *« 

{ 

sign  =  -1; 

♦♦(•sploc) ; 

) 

else  if  ( t isdigit(**sploc) )  return(TRUE) ; 

if  (get_integer(c?w_string, sploc, Stint) )  return(TRUE) ; 

pt->x  *  tint  •  sign; 

sign  «  1; 

skip_sep(sploc) ; 

if  (••sploc  *=  '-') 

( 

sign  =  -1; 

♦♦(•sploc) ; 

) 

else  if  ( !isdigit(*»sploc> )  return(TRUE) ; 
if  (get_integer(coa_string, sploc, Stint) )  return(TRUE) ; 
pt->y  *  tint  •  sign; 
return(FALSE) ; 

) 
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•  DATE:  9  NOV  1984 

•  VERSION:  1.0 

•  NANE:  get.tran 

•  SCNUMBER:  4. 1.2.1 

•  FUNCTION:  Gats  a  new  tranaforaatlon  which  ia  the  multiplica- 

•  tion  of  an  input  transformation  and  a  transforaation 

•  specified  by  the  input  CALL  coaaand  string.  A  pointer  to 

•  the  location  for  the  new  tranaforaatlon  ia  also  paaaed 

•  in  and  ia  aodified  by  the  procedure.  If  the  input 

•  transforaation  pointer  ia  NILL,  then  it  ia  not  necaaaary 

•  to  multiply  the  new  transformation  times  the  old.  This 

•  allows  the  process  to  be  used  by  both  trace_table  and 

•  proc_call.  In  either  case  a  symbol  number  is 

•  returned.  The  input  scale  is  used  to  modify  the  values 

•  found  in  the  CALL  command.  See  Hon  6  Sequin  page  109  for 

•  a  derivation  of  the  algorithm  used. 

•  Manhattan  directions  are  assumed  to  simplify  call 

•  calculations  -  the  following  coda  would  implement  the 

•  rotation  transformation  without  that  restriction. 

•  square  *  sqrt((fx*fx)  ♦  <fy«fy>); 

•  temps [4]  *  temps  CO]  *  fx  /  square; 

•  temps  Cl]  «  fy  /  square; 

•  temps C3]  «  -temps Cl]; 

•  INPUTS:  sp,  trans( input  current  transf ormation  or  NILL) 

•  newtranaC location  for  new  output  transformation 

•  acaleCscale  from  the  symbol  above) 

•  OUTPUTS:  anus  (number  of  called  symbol) 

•  GLOBAL  VARIABLES  USED:  identity 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  skip.blank  /  get.point  /  mult33  /  get_integer 

•  CALLING  MODULES:  tracedown  /  proc.call 

•  HISTORY:  N/A 


long  get_tran (sp, scale, tran , newtran ) 

char  *ap; 

float  scale,  tran Cl,  newtran Cl; 

( 

static  atruct  point  pt; 

static  long  sym; 

static  float  tmatrixC9],  temps C9); 

static  int  i; 


♦♦sp; 

get. integer ( sp , &sp , fcay m ) ; 

for  (i*0;  i<«8;  **l)  tempmCi]  *  tmatrixCi)  =  idenityCi]; 
skip.blank (&sp) ; 
while  («sp  ! *  ';') 

( 

switch  (*ap) 

( 

case  'T': 
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) 


♦♦sp; 

get_point(sp,&sp,&pt) ; 
tesps  (6.)  ■=  (float)  scale  «  pt.x; 
teaps(7]  *  (float)  scale  •  pt.y; 
break; 
case  'R' : 


♦  ♦sp; 

get_point(sp,&sp,&pt) ; 
if  (pt.x  0L> 

{ 

tesps [01  *  tesps (41  =  0.0; 
tespsCU  *  (pt.y  >  0L)  ?  1.0  : 

tesps C33  =  (pt.y  >  OL)  ?  -1.0 

) 

else 

( 

tesps [11  *  tesps C31  =  0.0; 
tesps  CO]  «  (pt.x  >  OL)  ?  1.0  : 

tesps [4 J  =  (pt.x  >  OL)  ?  1.0  : 

) 

break; 
case  'N': 

♦  ♦sp; 

skipblank (tap) ; 

if  (*sp  =*  'X')  tespstO)  =  -1.0; 
else  tesps (41  «  -1.0; 

♦♦sp; 

break; 

) 

skip_blank(&sp) ; 

sult33(tsatrix, tesps, tsatrix) ; 

for  (i*0;  i<*8;  ♦♦!)  tespstil  =  ldenityCil; 

) 


if  (tran  !«  NILL)  sult33(tsatrix, tran, tsatrix) ; 
for  (i*0;  i<«8;  **t)  newtranCi)  =  tsatrixCi); 
return (ays) ; 


-1.0 
:  l.o 


-1.0 

-1.0 


. . 

•  DATE:  3  OCT  84 

•  VERSION:  1.0 

•  NAME:  int_cossand 

•  scnuhber:~2.o 

•  FUNCTION:  This  is  a  prisary  sodule  which  does  the  folllowing: 

•  Calls  get_cad_opt  to  open  the  CADRC  file  (if  it 

•  exists)  and  parses  the  "acifplot"  line  (if  found)  and 

•  then  sodlfies  the  Control  Variables  as  required. 

•  Passes  the  progras  cossand  line  argusents  argv  and  argc 

•  to  par_optiona  for  the  additional  sodification  of  the 

•  Control  Variables  as  required. 

•  Notify  is  called  to  infors  the  user  of  the  status  of  the 

■  control  variables  if  notify  is  true. 

•  All  errors  encountered  in  the  procedures  are  fatal  and 

•  do  not  return  control  to  sain. 
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•  INPUTS:  argc, argv  • 

•  OUTPUTS:  non* 

•  GLOBAL  VARIABLES  USED:  Control  Variables  (notify)  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  none  • 

•  NODULES  CALLED:  get_cad_opt  \  par_options  \  do_notify  \  puts  • 

•  CALLING  NODULES:  aaln  ~  • 

•  HISTORY:  N/A 

. • . . . . 

i n t_coaaand ( argc , ar g  v ) 
int  argc; 

char  «argv[]; 

( 

get_cad_opt< ) ; 

par_optiona(argc, argv, FALSE) ; 
puts (VERSION); 
if  (notify)  do_notify(); 


. . * . . . 

•  DATE:  25  OCT  84 

•  VERSION:  1.0 

•  NAME:  aain 

•  SCNUMBER:  1.0 

•  FUNCTION:  primary  module  which  initilizea  global  variables 

•  and  calls  all  other  modules: 

•  int_command  ia  called  to  initilize  the  Control  Variables 

•  and  modify  them  aa  required  by  the  CADRC  file  and  com- 

•  sand  line. 

•  parse_cif  ia  called  to  read  the  input  CIF  file  and  build 

•  the  symbol  table  and  the  EXECUTABLE  File 

•  bld_file  ia  called  to  trace  the  symbol  table  and  make 

•  the  output  PLOT  file 

•  STRUCTURED  ENGLISH: 

•  INPUTS:  argc.  argv 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  err_flag,  cif_file,  exec_file 

•  del_def,  line_number,  table_top,  plot_file,  er_file 

•  totbox,  totwire,  totround,  totcall,  totsymboi, 

•  totextension.  totccomment,  totlayer,  totcommand 

•  FILES  READ:  none 

■  FILES  WRITTEN:  none 

•  NODULES  CALLED:  int_co*mand  /  parae_cif  /  bld_file  /  abort 

•  CALLING  MODULES:  none 

•  HISTORY:  N/A 

.  . . . . . . . . . . . 

aaln (argc, argv) 
int  argc; 
char  *argv  U ; 

( 
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struct  box  »parse_cif ( ) ; 

static  struct  box  *exbox; 

insestab  3  sesfiletest  3  err_flag  3  FALSE; 

er_flle  3  cif_file  3  exec_file  3  table_top  3  plot_file  3  HILL; 
totbox  3  totwire  3  totround  3  totcall  3  totsysbol  3  0; 
totextension  3  totccoaaent  3  totlayer  3  totcossand  3  0; 
line_nusber  =  1; 

int_coaaand(argc,argv) ; 

if  ((exbox  3  parse_cif())  !3  NILL)  bld_f ile(exbox) ; 
else  abort(l); 
abort (3) ; 


DATE:  23  OCT  1984 
VERSION:  1.0 
NAME:  ault33 
SCNUMBER:  4. 1.2. 1.1 

FUNCTION:  Multiplies  two  3X3  Matrices  together  and  Modifies 
the  specified  Matrix  with  the  result.  The  Matrix  (read 
array)  is  nuabered  as  follows: 

10  12  1 
13  4  5  1 

16  7  8  1 


INPUTS:  al  &  m2  (Matrices  to  Multiplied) 

Mr  (pointer  to  Matrix  in  which  to  place  result) 
OUTPUTS:  none  (  Matrix  is  Modified  ) 

GLOBAL  VARIABLES  USED:  none 
GLOBAL  VARIABLES  CHANGED:  none 
FILES  READ:  none 
FILES  WRITTEN:  none 
MODULES  CALLED:  none 
CALLING  MODULES:  get_trana 
HISTORY:  N/A 


ault33(al ,a2,ar > 
float  m1  U  ,m2U  ,Mr U  ; 

( 

static  float  Mtt91; 

static  int  i; 


st [0]  3  si [0] *m2 [OJ 
Mt(ll  3  MltO)«M2m 
mt(2]  3  Ml  CO] «m2 (21 
atC3)  3  Ml  131 *m2 [0] 
at  [4]  3  Ml  (31  *m2  (11 
attS]  3  Ml (31 *m2 (21 
at  [6]  3  m1  (61  *m2  (0] 
Mt  173  3  Ml  (63  «m2  [11 
at  (8)  3  al  (61  *m2  (2J 


♦  Ml (II *a2  C3] 

♦  m1C1]*m2[4] 

♦  Mill] *m2 [51 

♦  m1(4]*m2C3] 

♦  Ml C4] *a2 (43 

♦  Ml C4 1 «m2 [51 

♦  Ml  [7]  »a2  (31 

♦  Ml [7] »m2  (4) 

♦  m1C7]«m2(5] 


♦  al [2] »a2 [6) 

♦  Ml  [2]  »a2  C7) 

♦  MlC2)»a2(8) 

♦  Ml  [5]  *a2  (&] 

♦  al C5) »»2  E7) 

♦  Ml  C51  »m2  C8) 

♦  Ml C8] »a2 [6] 

♦  al C8) «a2 [7) 

♦  al (83  »a2 [8] 


/ 
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MICROCOPY  RESOLUTION  TEST  CHART 


for  (i«0;  i<®8;  **L)  artil  ■  nt. CD; 

) 

. . . . •••••••«.•••• . * . . . . 

•  DATE:  9  NOV  1984 

•  VERSION:  1.0 

•  NAME:  open_pfile 

•  SCNUMBER:  4.4 

•  FUNCTION:  Opens  PLOT  file  for  writing  PLOT  cossands.  If  the 

•  output  file  is  on  a  different  disk,  gets  space  left 

•  on  that  drive  and  puts  in  charcount  (else  gets  space 

•  on  default  drive).  This  procedure  uses  CPM  specific 

•  BDOS  calls. 

•  INPUTS:  none 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  outfnase 

•  GLOBAL  VARIABLES  CHANGED:  plot_file,  charcount,  wrtspace 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  get_space  /  file_open  /  bdos 

•  CALLING  MODULES:  bld_file 

•  history:  n/a 

. . . * . . . . . . 

openpf ile< ) 
l 

struct  file  »f ile_open( ) ; 

static  int  newdrive,  cdrive,  where; 

cdrive  *  bdos(RETCURDISK,0) ; 

if  (outfnase (11  ==  ':')  newdrive  =  outfnase [0]  -  'A'; 
else  newdrive  *  cdrive; 
if  (cdrive  !•=  newdrive) 

{ 

bdos(SELECTDISK, newdrive) ; 

charcount  *  CONVERT  •  (get_space( ) )  -  CL0SER00M; 
bdos(S£LECTDISK, cdrive) ; 

) 

else  charcount  B  CONVERT  •  (get_space( ) )  -  CL0SER00M; 

wrtspace  =  charcount; 

plot_file  B  file_open(outfnaae,'’wb") ; 

) 
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/*•*••••**•••••• . . . * . 

•  DATE:  31  OCT  1984  • 

•  VERSION:  1.0  • 

•  NAME:  par_layer  • 

•  SCNUHBER : ~2 . 2 . 2  • 

•  FUNCTION:  Paraas  tha  layar_llat  froa  tha  coaaand  line  or  the  • 

•  CADRC  file  and  modifies  tha  Control  Variables  as  • 

•  required.  Tha  layer  naaas  that  are  accepted  coae  froa  ■ 

•  the  manual  for  cif plot ■  • 

•  INPUTS:  sp 

•  OUTPUTS:  none  • 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  Control  Variables  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  none  • 

•  MODULES  CALLED:  strcpy  /  strcap  /  prt_error  /  toupper  • 

•  CALLING  MODULES:  par.options  ~  • 

•  HISTORY:  N/A  • 

. . . . . *• . 

par_layer (sp) 

char  *ep; 

{ 

static  char  •teap; 


while  (*sp  ! =  NULL) 

( 

teap  *  sp; 

vhile(*sp  !*  &&  »sp  !*  NULL) 

( 

•sp  3  toupper ( »sp) ; 

♦  ♦sp; 

J 

if  ( *sp  33  ',') 

{ 

•sp  3  NULL; 

♦  ♦sp; 

) 

if  (strcap (teap ."ALLTEXT")  **011  strcap(teap,"AT“)  =*  0) 

text  3  pointnaae  -  syabolnaae  3  FALSE; 
else  if  (strcap( teap, "POINTNAME")  *=  0  I  I  strcap(teap,"PN")  **  0) 

pointnaae  *  FALSE; 

else  if  (atrcap(teap,"SYMBOLNAME”)  **  0  II  strcap(teap,"SN”)  **  0) 

syabolnaae  ■  FALSE; 
else  if  (strcap(temp,"BBOX")  33  0) 

bbox  *  FALSE; 
else  if  (strcap(teap, "OUTLINE")  33  0) 

outline  *  FALSE; 

else  if  (strcap (teap, "TEXT")  33  0) 

prt_error( 11 ,NILL> ; 
else  prt_error(100,teap) ; 

) 


) 
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/ 


•  DATE:  25  OCT  1984 

•  VERSION:  1.0 

•  NAME:  par_options 

•  SCNUMBER:  2.2 

•  FUNCTION:  Parses  the  options  fros  the  CADRC  file  and  the  cos- 

•  sand  line  and  modifies  the  Control  Variables  as  required 

•  based  on  Kernighan  and  Ritchie  page  113.  The  cadre  flag 

•  allows  the  procedure  to  process  the  cossand  line  and  the 

•  CADRC  file  slightly  differently. 

•  INPUTS:  arge,  argv,  cadre 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  Control  Variables 

•  GLOBAL  VARIABLES  CHANGED:  Control  Variables,  cif_file 

•  FILES  READ*.  CIF  (is  opened) 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  toupper  /  latoi  /  atrepy  /  strlen  /  prt_error 

•  ck_range  /  par_layer  /  atof  /  get_pattern  /  file_open 

•  atreat  /  cp*_file  /  index 

•  CALLING  MODULES:  int_coasanda  /  get_cad_opt 
«  HISTORY:  N/A 

. . . . . *•/ 


par_opt ions ( arge , argv , cadre) 
int  arge,  cadre; 

char  »argv  [] ; 

{ 


static  char 
static  int 
struct  file 
long 
float 


tf iletlSl ,  »avchar; 
count; 

*flle_open(>; 
latoi <) ; 
atof  ( ) ; 


if  (teadre  &&  arge  «■  1)  prt_error(l,NILL) ; 


while  < — arge  >  0  &&  (•♦♦argv) CO)  =»  '-') 

( 

awchar  *  argv(O)  ♦  1; 
switch (toupper ( »swchar) ) 

( 

case  'I': 

interactive  *  FALSE; 
break; 
case  'R': 

rotate  *  TRUE; 
break; 
case  'G': 

grid  «  TRUE; 

--arge; 

♦♦argv; 

grldspace  *  latoi ( »argv) ; 
if  (gridapace  <■  0)  prt_error(2,NILL) : 
if  (ck_range(gridspace) )  prt_error(3,NILL) 
break; 

'E' : 


case 


extension  ■  FALSE; 
break; 
case  'C': 

consents  *  TRUE; 
break; 
case  'B' : 

banner  *  TRUE; 

— argc; 

♦♦argv; 

count  *  strlen ( »argv ) ; 
if  (count  >  (BANLENGTH  -  3)) 

(•argv) C (BANLENGTH-3) 1  *  NULL; 
strcpy (bantext,*argv) ; 
strcat(bantext,“\015\012*,>; 
break; 
case  ' D' : 

--argc; 

♦♦argv; 

depth  *  latoi (»argv) ; 
if  (depth  <*  0)  prt_error (4,NILL> ; 
if  (ck_range(depth> >  prt^error (3,NILL> ; 
break; 
case  'L': 

--argc; 

♦♦argv; 

par_layer ( »argv ) ; 
break; 
case  'M' : 

sakepage  *  TRUE; 
break; 
case  'N' : 

notify  *  TRUE; 
break; 
case  'O'; 

--argc; 

♦♦argv; 

if  (cps_file(»argv> )  strcpy (outfnase, «argv) 
else  prt_error(105, «argv) ; 
outfile  *  TRUE; 
break; 
case  'O'; 

quiet  *  TRUE; 
break; 
case  'S': 

scale  *  TRUE; 

--argc; 

♦♦argv; 

scalenus  ■  atof(»argv); 
if  (scalenus  <*  0)  prt_error(5,NILL) ; 
break; 
case  'T': 

--argc; 

♦♦argv; 

if  (cps_f ile(»argv) )  strcpy (trnase, »argv> ; 
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•Isa  prt_«rror (105, »argv) ; 
count  »  index < »argv, " ; 
if  (count  **  -1)  street ( trnase,". COM" > ; 
count  ■  fopen(trnaae, "r"> ; 
if  (count  «B  0)  prt_error(107,*argv> ; 
strcpy( trnase , *argv) ; 
fclose(count) ; 
transfer  ■  TRUE; 
break; 
case  'W': 

if  (Icadrc  &&  arge  <*  5)  prt_error (8, KILL) ; 
window  B  TRUE; 

--arge; 

♦♦argv; 

wxain  *  latoi(*argv> ; 

--arge; 

♦♦argv; 

wxsax  =  latoi ( »argv) ; 

--arge; 

♦♦argv; 

wysin  «  latoi ( »argv) ; 

--arge; 

♦♦argv; 

wyaax  *  latoi ( »argv) ; 
if  (ck_range (wxain)  I  I 
ck_range( wxsax)  I  I 
ck_ratige(wyain)  l \ 

ck_range(wyaax) )  prt_error(3,NILL) ; 
if  (wxaax  <»  wxain)  prt_error(6,NILL) ; 
if  (wyaax  <*  wyain)  prt_error(7,NILL) ; 
break ; 
case  'P': 

--arge; 

♦♦argv; 

if  (cpa_f ile(«argv) )  get_pattern(»argv) ; 
else  prt_error(105, »argv) ; 
pattern  =  TRUE; 
break; 

default: 

prt_error ( 101 , *argv) ; 

) 

> 

if  (teadre) 

( 

if  (arge  !«  1)  prt_error( 1 ,NILL> ; 

count  *  index(»argv,".VECM); 

if  (count  !*  -1)  prt_error ( 106, »argv) ; 

if  (cpa_f ile( *argv) )  cif_file  *  f ile_open( «argv, "r") 

else  prt_error ( 105, «argv) ; 

if  (cif _f ile  ««  NILL) 

( 

count  «  index ( »argv, ) ; 
if  (count  ■»  -1) 

( 


C-61 


strcpy(tf ile, *argv) ; 
strcat(tfile,**.CIF”) ; 
cif  _f i la  »  f i l*_opan < tf i la , "r" ) ; 
if  <cif_fila  «■  NILL)  prt_error(102,*argv) 
) 

elaa  prt_error <102, *argv> ; 

) 

if  Coutfila) 
l 

atrcpy(outfnaaa,cif_f ila->na»e) ; 
count  *  index<outfnaae,”.") ; 
if  (count  **  -1>  atrcat(outfna»e,".VEC*,> ; 
else  atrcpy ( (outfnaae  ♦  count  ♦  1),"VEC**>; 

) 

unlink(outfnaae) ; 

) 

return: 

) 

. . • . . . . . . •  . ***** 

•  DATE:  10  OCT  84  « 

•  version:  i.o  * 

»  NAME:  parse_cif  • 

•  SCNUHBER:  3.0 

•  FUNCTION:  Reads  all  cosaands  froa  the  CIF  file  and  uses  thea  • 

•  to  build  the  EXECUTABLE  file  or  creates  new  entries  in  • 

•  the  syabol  table  for  each  syabol.  Syntax  is  checked  and  • 

•  build  is  set  *  FALSE  if  an  unrecoverable  syntax  error  is* 

•  found.  Returns  exbox  -  NILL  if  build  *  FALSE.  * 

•  INPUTS:  none  * 

•  OUTPUTS:  exbox  • 

•  GLOBAL  VARIABLES  USED:  cif_file  • 

•  GLOBAL  VARIABLES  CHANGED:  exec_file,  last_syabol,  exlayer,  * 

•  end,  axbox,  charcount  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  EXECUTABLE  is  opened  • 

•  MODULES  CALLED:  file_open  /  get_cif_coa  /  bld_st  /  prt_error  • 

•  wrt_ex_file  /  get_space  /  unlink  * 

•  CALLING  MODULES:  aain  • 

•  HISTORY:  N/A  • 

•  . * . . . . 

struct  box  »parae_cif<) 

( 

char  *get_cif _coa< ) ; 

static  char  *coa_string; 

struct  file  *f ile_open( ) ; 

last_syabol  *  NILL; 
exlayer  =  build  *  TRUE; 
end  =  FALSE; 

exbox. xain  =  exbox. yain  *  INFINITY; 
exbox. xaax  =  exbox. yaax  *  -INFINITY; 

unlink(EXNAME) ; 
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charcount  *  CONVERT  •  (gat_apace( ) ) ; 
exec_f ile  «  file_open (EXNAME, “w“> ; 
if  (exec_file  «»  NILL)  prt_error (9,NILL) ; 
while  Hand) 

( 

coa_atring  *  get_cif_co*(cif_f ila, TRUE) ; 
if  (coa_string 10]  *«  'D'  S.&  coa_atring Cl)  ==  'S') 
bld_at(co*_atring) ; 
else  wrt_ex_f ile(coa_atring) ; 

) 

if  (build)  return ( Aexbox ) ; 
else  return(NILL) ; 


«  DATE:  9  NOV  1964 

•  VERSION:  1.0 

•  NAME:  plot_page 

•  SCNUMBER :  4.5 

•  FUNCTION:  Writes  PLOT.COM  cossands  to  plotfile  for  plotting 

•  one  page  of  the  cifplot.  If  this  is  the  first  page,  then 

•  the  plot  header  (file  naie,  window,  and  scale)  and 

•  banner  (if  one  is  specified  is  written  to  the  PLOT  file. 

•  Next  the  PLOT  cossands  to  erase  sesory  to  white  are 

•  output  to  the  PLOT  file.  Then  do_page  is  called  with 

•  either  the  identity  transforsation  or  the  rotsatrix 

•  to  write  PLOT  cossands  for  one  page.  Very  little 

•  error  checking  is  done  in  this  process  and  the  processes 

•  it  calls,  it  is  asauaed  that  the  syntax  and  sysantic 

»  errors  have  been  detected  prior  to  attespting  output. 

•  No  warnings  are  issued  if  the  aysbols  nested  too  deep 

•  are  ignored. 

•  INPUTS:  trans  -  top  level  transforsation 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  banner,  grid,  pban,  identity,  rotsatrix 

•  plot_file,  rotate 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  plot_banner  /  pc_erase  /  do_page  /  do_grid  < 

•  pc_output  /  i 

•  CALLING  MODULES:  bld_flle 

•  HISTORY:  N/A 


plot_page(pnua) 
int  pnua; 

( 

static  char  «sp; 

if  (pnus  ««  1) 

( 

pc_text ( pban, plot_f lie- >channel) ; 
if  (banner)  pc_text(bantext,plot_f ile->channel ) ; 
) 
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pc_color ( WHITE, plot_f ile->channel ) ; 
pc_eraae(plot_f ile->channel ) : 
if  (rotate)  do_page(rot«atrix) ; 
else  do_page< idenity ) ; 
if  (grid)  do_grid(pnum) ; 
pc_output(plot_file->channel) ; 


. . . . . 

•  DATE:  9  NOV  1984 

•  VERSION:  1.0 

•  NAME:  proc_call 

•  SCNUHBER:  4. 5. 2. 5 

•  FUNCTION:  Using  the  input  Call  cossand  and  transformation 

•  determines  if  the  called  symbol  is  within  the  current 

•  page.  If  so,  this  symbol  is  read  and  each  command  is 

•  output.  If  call  commands  are  encountered  in  the  symbol, 

•  then  a  recursive  call  is  made  to  proc_call.  The  nesting 

•  of  calls  is  limited  by  the  value  of  depth. 

•  INPUTS:  compt,  trans,  scale 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  curdepth,  depth,  symbolname,  pointname 

•  text,  extension,  pwindow,  bbox,  com_offset,  com_record 

•  deplimit 

•  GLOBAL  VARIABLES  CHANGED:  curdepth 

•  FILES  READ:  PLOT 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  get_layer  /  proc_call  do_9xcom  /  do_box  / 

•  do_vlre  /  do_lcom  /  do_round  /  get_tran  /  find_sym 

»  trans_box  /  trantoplot  /  clip_box  /  put_box 

•  get_cif_com  /  file_seek  /  isdigit 

•  CALLING  MODULis:  plot.page 

•  HISTORY:  N/A 

*••*•»»»»•»»*••*•«■•»•■»••••*•»»••■•*•»»»»••»•»•••••»«*•»••■•*»•/ 

proc_call (compt, trans, scale) 
char  «compt; 
float  scale,  transU; 

( 

auto  float 
auto  long 
auto  struct  symbol 

auto  struct  box 

auto  int 

auto  struct  cliprec 
long 
char 

struct  symbol 


newtran (91 ; 
snum; 

•aypt; 

abounds; 

curlayjr,  inside,  curoffset,  currecord; 
clipped ; 
get_tran( ) ; 

•get_cif_com( ) ; 

•f ind_sym( ) ; 


snum  *  get_tran(compt, scale, trans, newtran) ; 

sypt  *  f ind_sym(snum) ; 

abounds. xmln  *  sypt->sxmin; 

abounds. ymin  =  sypt->symin; 

abounds. xmax  =  sypt->sxmax; 

abounds. ymax  =  sypt->aymax; 
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/• 

/• 

/• 


/• 

/* 

/• 


trans_box(&sbounds, newtran) ; 

inaide  *  clip_box(&sbounds,&pwindow,&clipped) ; 
if  < I inside) 

( 

--curdepth; 

return; 

) 

if  (bbox) 

( 

trantoplot (^abounds) ; 
put_box(£.sbounds,0,6.clipped) ; 

» 

f ile_seek(cif_f ile,aypt->off set,sypt->record> ; 

cospt  =  get_cif_cos(cif _f ile,TRUE) ; 

while< ! (»cospt  =  =  'D'  &&  •(cospt+1)  =*  'F')> 

{ 

if  (isdigit(*cospt)  &&  (extension); 
else 
( 

switch  (*cospt) 
l 

case  'B': 

do_box (cospt, newtran, cur layer ,aypt->scale) ; 
break; 
case  'W': 

do_wire (cospt, newtran, cur layer ,sypt->scale) ; 
break: 
case  'R': 

do_round (cospt , newtran , cur layer , sypt- >sca le  > ; 
break; 

case  'P':  •/ 

do_poly (cospt, newtran, curlayer,sypt->scale) ;  •/ 

break;  •/ 

case  'L': 

curlayer  =  get_layer (cospt) ; 
break; 
case  'C': 

if  (♦♦curdepth  <=  depth  &&  curdepth  <  depllait) 

( 

curoffset  =  cos_offset; 
currecord  *  cos_record; 
proc_call (cospt, newtran, sypt->scale> ; 
f i le_seek (cif _f i le, curoffset , currecord ) ; 
cospt  *  get_cif_cos(cif_f ile,TRUE) ; 

) 

else  --curdepth; 
break; 
case  '1': 

do_lcos (cospt) ; 
break; 

case  '2':  */ 

if (text)  do_2cos (cospt, newtran, sypt->scale) ;  •/ 

break;  •/ 

case  '9': 
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if  ((»(compt  ♦  D)  ==  '4'  &&  pointname) 

{ 

do_9xcom(compt,newtran,NILL,sypt->scaie) ; 

) 

else  if  (ayabolnaae)  do_9xcom(compt,newtran,aypt,1.0) ; 
break; 

) 

) 

coapt  =  get_cif_com(cif_file,TRUE) ; 

) 

--curdepth; 

return; 

) 


•  DATE:  25  OCT  1984 

•  VERSION:  1.0 

•  NAME:  prt_error 

•  SCNUMBER:  2.2.5 

•  FUNCTION:  Displaya  the  error  eeaaage  corresponding  to  the 

•  input  error  number  to  the  atandard  out.  If  the  MESSAGE 

•  file  has  not  been  opened,  the  file  is  opened  and  an 

•  array  allocated  to  contain  the  message  offsets  in  the 

•  file.  Then  the  message  is  read  in  and  printed.  If  the 

•  file  is  not  found,  only  error  numbers  are  displayed. 

•  Depending  on  the  type  of  error,  also  displays  the  input 

•  the  input  string.  Certain  error  types  set  err_flag  * 

•  TRUE.  Fatal  errors  call  abort  to  exit. 

»  INPUTS:  err_num,  sp 

«  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  meafiletest,  inmeatab,  err_flag 

•  er_file 

•  FILES  READ:  MESSAGE 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  puts  /  abort  /  itoa  /  litoa  /  file_open  / 

•  putchar  /  sbrk  /  getc  /  file_aeek 

«  CALLING  MODULES:  par_options  /  bld^file  /  bld_st  /  ck_9 

•  do_grid  /  ck_wire  /  ck_atart  /  ck_call  /  ck_box 

•  ck_layer  /  ck_round 

•  HISTORY : ~N/A 


c,  »pt,  s  C12J ; 

*el  =  "<-  Line  "; 

*e2  =  "  ->  ”; 

temp,  messcount,  found,  i,  «newplace,  offset; 
•  itoaO,  •litoaO,  getcO; 

*f ile_open( ) ; 

if  (error  >*  5000) 


prt_error (error, ap> 
int  error; 

char  »ap; 

( 

static  char 
static  char 
static  char 
static  int 
char 

struct  file 
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error  -*  5000; 

putaC'aeaory  allocation  error:  ”); 
puta(itoe(error,a) ) ; 
abort < 1 ) ; 

) 

if  ( ! aeaf 1 leteat ) 

( 

er_f ile  =  f ile_open(MESFILE, “rb“> ; 
if  <er  file  !«  NILL) 


pt  =  taeaacount; 

*pt**  *  getc(er_f ile->channel) ; 

*pt  =  getc(er_f ile->channel ) ; 
teap  ■  aeaacount  •  2; 
pt  =  newplace  *  abrk(teap+2) ; 
if  (pt  =»  -1) 

( 

putaC'error  table  allocation  fails  -  error:  ">; 

putadtoa  (error  ,a)  > ; 

abort(l); 

) 

Pt  ♦*  2; 

for  (i*l;  i<«teap;  ♦  ♦i)  *pt»»  *  getc(er  i*->channel ) ; 
inaeatab  =  TRUE; 


puta("\n”) ; 
puta(MESFILE) ; 

puta(H  not  found  -  errora  diaplayed  aa  nuabera\n“); 


aeafileteat  *  TRUE; 

) 

if  (tquiet)  puta  ("\n"); 
if  (ap  Is  NILL)  puta(ap); 
if  (inaeatab) 

( 

found  =  -1; 

for  (i*l;  i<*ae8acount;  ♦♦!) 

( 

if  (newplaceCi]  ==  error) 
{ 

found  =  i; 
break; 


if  (found  !*  -1) 

( 

offaet  *  (aeaacount«2)  ♦  2  ♦  ((found  -  1)  •  80); 
flle_aeek(er_f ile,offaet,0) ; 


if  (tinaeatab  II  found  =  *  -1) 


C-67 


( 

puts("\nerror:  ”); 
puta(itoa(error,s) ) ; 
puta(*‘\n”) ; 

if  (error  >=  1000)  return; 
if  (error  >*  500) 

( 

err_flag  =  TRUE; 
return; 

) 

abort (2) ; 

) 

if  (error  <  100) 

( 

while  ((c  *  getc(er_f ile->channel ) ) )  putchar(c) 
if  (error  *=16  II  error  ==  17)  abort(4); 
abort (2) ; 

I 

else  if  (error  <  200) 

( 

while  ((c  =  getc(er_f ile->channel ) ) )  putchar(c) 
abort (2) ; 

) 

else  if  (error  <  299) 

( 

puta(“\n”) ; 
puts (el) ; 

puta( litoa( line_nuaber ,a) ) ; 
puts(e2) ; 

putaC'Fatal  error:  '*); 

while  ((c  =  getc(er_f ile->channel) ) )  putchar(c) 
abort (2) ; 

) 

else  if  (error  <  399) 

( 

puts(”\n") ; 

while  ( (c  =  getc (er_f ile->channel ) ) )  putchar(c) 
abort (2) ; 

) 

else  if  (error  <  1000) 

( 

puts( "\n" ) ; 
puts(el ) ; 

puta( litoa( line_nuaber , a) ) ; 

puts(e2> ; 

err_f lag  *  TRUE; 

) 

else  if  (error  <  2000) 

( 

puta("\n") ; 
puts(el ) ; 

puts(litoa(line_nuaber,s) ) ; 
puta("  ->  Warning:  "); 

) 


DATE:  23  OCT  84 
VERSION:  1.0 
NAME:  trantoplot 
SCNUMBER:  4. 5. 2. 1.2 

FUNCTION:  Because  the  PLOT.COM  coordinate  systes  is  rotated  90 
degrees  froa  the  the  cifplot  systes  and  all  it's  coordi¬ 
nates  are  in  the  first  quadrant,  several  transf orsations 
must  be  made  before  correct  output.  The  transformations 
are  accomplished  using  a  matrix  transformation  on  the 
two  points  in  the  input  box  to  transform  it  into  the 
correct  coordinate  system  for  output. 

Three  transformations  (and  3  matrices)  are  required: 


1 

0 

0 

1 

Ml: 

0 

1 

0 

1  -  translates  pxmin. 

pymin  * 

-pxmin 

-pyuin 

0 

1  to  0,0 

0 

-i 

0  1 
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0 

0  1 
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0 

0 

1  1 

1 

0 

0  I 

M3: 

0 

1 

0  1 

-  translates  to  first 

quadrant  • 

i 

0 

Dy 

0  1 

using  Dy  (delta  y) 

1 

0 

-1  0  1 

Ml  • 

M2  *  M3 

=  1 

1 

0  0  1 

1 

-pymin 

pxmin»Dy  1  1 

Because  the  plot  window  is  always  square,  and  xmin  and 
and  ymin  have  been  translated  to  0: 


Dy  =  pymax  -  pymin  • 

pxmin*Dy  «  pxmin+pymax-pymin  » 

Because  of  the  number  of  zeros  and  ones  in  the  matrix  • 

the  transformation  of  a  point  can  be  reduced  to  two  • 
equations:  • 

xout  =  yin  -  pymin  * 

yout  »  pxmin  ♦  pymax  -  pymin  -  xin  • 

INPUTS:  bp 

OUTPUTS:  modifies  input  box  indirectly  via  pointer  • 

GLOBAL  VARIABLES  USED:  pwindow  * 

GLOBAL  VARIABLES  CHANGED:  none  • 

FILES  READ:  none  * 

FILES  WRITTEN:  none  « 

MODULES  CALLED:  none  • 

CALLING  MODULES:  do_box 

history:  n/a 

. . . . 
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the  nine  Multiplications  and  six  additions  can  be  re¬ 
duced  to: 

x'  =  ax  ♦  by  ♦  c 
y'  ■  dx  ♦  ey  ♦  f 

See  Newman  &  Sproull  page  60. 

The  last  test  is  required  in  the  instance  that  a  trans¬ 
formation  causes  the  box  maximum  point  to  be  less  than 
the  box  minimum  point. 

INPUTS:  trans,  box 

OUTPUTS:  nonednput  box  is  modifier  via  pointer) 

GLOBAL  VARIABLES  USED:  none 
GLOBAL  VARIABLES  CHANGED:  none 
FILES  READ:  none 
FILES  WRITTEN:  none 
NODULES  CALLED:  none 
CALLING  MODULES:  tracedown 
HISTORY:  N/A 


trana_box( bp, trans) 
struct  box  »bp; 

float  trans Cl; 

( 

static  long  x,  y,  save; 

x  *  (long)  transCO] *bp->xmin  ♦  trans C3) »bp->ymin  ♦  trans[61 

y  *  (long)  trans(l) »bp->xmin  ♦  trans (4) »bp->ymin  ♦  trans(7] 

bp->xmin  =  x; 
bp->ymin  =  y; 

x  *  (long)  trans (01 *bp->xmax  ♦  trans (31 »bp->ymax  ♦  transC6) 

y  =  (long)  transClJ »bp->xmax  ♦  transit) »bp->ymax  ♦  trans[7] 

bp->xmax  =  x; 
bp->ymax  =  y; 
if  (bp->xmax  <  bp->xmin) 

( 

save  =  bp->xmax; 
bp->xmax  *  bp->xmin; 
bp->xmln  =  save; 

) 

if  (bp->ymax  <  bp->ymin) 

( 

save  *  bp->ymax; 
bp->ymax  =  bp->ymin; 
bp->ymln  =  save; 

) 
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if  (♦♦curdepth  >  depth) 

( 

prt_error (3001 , ( litoa (snua,stg) > ) ; 
downok  *  FALSE; 

) 

if  (&snua  <  lastalloc) 

( 

prt_error (3000, ( litoa(anua,stg) ) ) ; 
depliait  »  curdepth; 
downok  *  FALSE; 

) 

if  (downok) 

( 

curoffaet  *  coa_offaet; 

currecord  =  coa_record; 

trocedown (coapt, sypt-> scale, &dbounda) ; 

change_bds(&sbounds,&dbounds) ; 

f i le_aeek ( cif _f i le , curoff set , currecord ) 

coapt  =  get_cif_coa(cif_f ile,TRUE) ; 

) 

— curdepth; 

) 

coapt  *  get_cif_coa(cif_f ile.TRUE) ; 

) 

bp->xaln  *  aypt->axain  *  abounds. xain; 
bp->yain  =  sypt->ayain  *  abounds. yain; 
bp->xaax  *  aypt->sxaax  *  abounds. xaax; 
bp->yaax  *  sypt->syaax  *  abounds. yaax; 
aypt->inuae  *  NO; 
aypt->caila  *  NO; 
trans_box(bp,newtran) ; 


DATE:  9  NOV  1984 
VERSION:  1.0 
NAME:  trana_box 
SCNUMBER:  472.3 

FUNCTION:  Using  an  input  tranaforaation  and  box,  this  process 
applies  the  tranaforaation  to  each  of  the  points  of  the 
box  and  then  aodifiea  the  input  box  accordingly.  The 
input  tranaforaation  ia  a  3X3  aatrix  and  the  noraal 
procedure  would  be  to  aultiply  a  1X3  aatrix  which  repre¬ 
sents  each  point  tiaea  the  3X3  tranaforaation.  Because 
the  tranaforaation  aatrix  is  always  in  the  fora: 

I  a  d  0  I 
T  *  l  b  e  0  I 

I  c  f  1  I 


•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  depth,  lastalloc,  cif_file,  depllait 

•  notify,  coa_offset,  coa_record 

•  GLOBAL  VARIABLES  CHANGED:  curdepth,  callcount 

•  FILES  READ:  CIF 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  get_tran  /  find_ay*  /  litoa  /  file_aeek 

•  change_bda  /  trana_box  /  prt_error  /  get_cif_coa 

•  tracedown  /  puta 

•  CALLING  MODULES:  trace.table 

•  HISTORY:  N/A 


tracedown ( sp , aca 1 e , bp ) 
char  «ap; 

float  acale; 

atruct  box  *bp; 

l 

auto  float 

auto  atruct  ayabol 

auto  atruct  box 

auto  char 

auto  int 

auto  long 

long 

char 

atruct  ayabol 


newtran 191 ; 

•aypt; 

dbounda,  abounda; 

stgCISl,  «coapt; 

downok,  curoffaet,  currecord; 

anna; 

get_tran( > ; 

•get_cif_coa<> ,  "litoaO; 

*f ind_aya(> ; 


if  (tquiet  &&  (♦♦callcount  X  CNOTIFY)  **  0) 

( 

puta("\r->  finding  bounda:  “>; 
puta(litoa(callcount,etg>  > ; 
puta("  calls  processed  **); 

) 

anua  *  get_tran(ap, acale, NILL, newtran) ; 

aypt  =  f indaya(snua) ; 

if  (aypt  *=  NILL)  prt_error(204,ap) ; 

if  (aypt->lnuse  *•  YES)  prt_error (103, (litoa(snua,atg) ) ) : 

bp->xain  *  abounda. xain  =  sypt->axain; 

bp->yain  -  abounda. yain  *  aypt->syain; 

bp->xaax  *  abounds. xaax  =  aypt->axaax; 

bp->yaax  *  abounds. yaax  *  sypt->syaax; 

If  (aypt->calla  ==  NO) 

( 

trans_box(bp, newtran) ; 
return; 

) 

sypt->inuae  *  YES; 

f ile_aeek(cif_f ile, aypt- >of feet, aypt- >record) ; 

coapt  =  get_cif_coa(cif_f ile, TRUE) ; 

vhlle< !  < »coapt  « =  'D'  &&  •(coapt*l>  =I  'F')) 

( 

If  («coapt  **  'C') 

( 

downok  *  TRUE; 
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{ 

puta("\r->  finding  bounds:  *'); 
puts(litoa(callcount,comstore) > ; 
puts(“  calls  proceaaed\n“) ; 

} 

return(bp) ; 


DATE:  9  NOV  1984 
VERSION:  1.0 
NAME:  tracedown 
SCNUMBER:  4.1.2 

FUNCTION:  Traces  symbol  table  using  the  input  CIF  CALL 

consand  input  (no  current  transformation  is  passed). 

The  input  scale  is  only  used  to  scale  the  numbers 
contained  in  the  CALL  command  (except  the  symbol  number) 
The  symbol  referred  to  in  the  call  is  located  in  the 
symbol  table.  If  this  symbol  is  not  found  a  fatal  error 
is  produced.  If  this  symbol's  “calls"  entry  in  the 
symbol  table  is  NO,  then  the  bounds  found  by  parse_cif 
are  correct  and  no  further  tracing  is  required.  The 
transformation  specified  in  the  input  CALL  is  applied 
to  the  bounds  of  the  symbol  and  returned. 

If  the  calls  entry  *  YES,  then  two  actions  must  take 
place:  (1)  just  as  above  the  TRUE  bounds  of  this  symbol 
must  be  transformed  and  returned  to  the  calling  process. 
(2)  To  find  these  bounds,  this  symbol  is  found  in  the 
CIF  file  and  read  until  a  CALL  command  is  found.  When 
CALL  commands  are  found,  tracedown  is  called  recursively 
with  the  CALL  command  as  found.  The  value  returned  is 
used  to  modify  the  bounds  of  the  current  symbol  if  the 
bounds  of  the  called  symbol  cause  it  to  change.  When 
all  calls  have  been  traced,  the  current  symbol  bounds 
in  the  symbol  table  are  set  to  the  new  values  (the 
"calls"  variable  is  set  to  NO  )  and  the  symbol  bounds 
are  transformed  as  above  and  returned. 

The  purpose  of  all  this  is  to  finish  the  trace  with  the 
the  symbol  table  containing  TRUE  symbol  bounds.  This 
means  symbols  need  only  be  traced  once  for  bounds  and 
during  plotting  symbols  outside  the  plotting  window  do 
not  have  to  be  called  from  disk  and  traced. 

To  prevent  the  stack  from  growing  down  into  memory  in 
use  by  the  program,  the  value  of  the  stack  is  checked 
and  compared  to  lastalloc  before  each  recursive  call. 

In  addition,  curdepth  is  checked  to  insure  that  it  will 
not  exceed  the  value  of  depth  before  each  call  to  trace- 
down.  Calls  nested  too  deep  are  ignored  and  a  warning  is 
generated.  If  a  loop  is  found  (a  symbol  calling  an 
ansestor)  then  a  fatal  error  is  generated. 

INPUTS:  com_atrlng  (CALL  command) 

scale  (scale  of  symbol  called  from) 
bp  (box  to  store  new  bounds  in) 
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puts(“  K  written  to  "); 
puts(outfname) ; 
putst"  M); 
nextk  ♦  «  WNOTIFY; 

} 


•  DATE:  9  NOV  1984  • 

•  VERSION:  1.0  • 

•  NAME:  trace_table  • 

•  SCNUMBER:  4.1  • 

•  FUNCTION:  Traces  the  symbol  table  to  determine  the  total  size  • 

•  of  the  entire  plot.  During  the  trace,  the  bounds  of  • 

•  sysbols  which  call  other  symbols  are  set  to  the  correct  • 

•  values.  Returns  a  box  which  contains  the  bounds  of  the  • 

•  entire  symbol.  Exits  through  print  error  is  there  is  • 

•  nothing  to  plot.  * 

•  INPUTS:  bp  -  pointer  to  bounding  box  of  executable  commands  • 

•  OUTPUTS:  bp  -  pointer  to  bounding  box  of  entire  plot  • 

•  GLOBAL  VARIABLES  USED:  exec.file,  rotate  • 

•  GLOBAL  VARIABLES  CHANGED:  curdepth,  callcount,  comstore  * 

>  FILES  READ:  EXECUTABLE  FILE  • 

•  FILES  WRITTEN:  none  • 

•  MODULES  CALLED:  fopen  /  get_ex_com  /  tracedown  /  fcloae  • 

•  change_bds  /  prt_error  /  puts  /  litoa  /  trans_box  • 

•  CALLING  MODULES:  bld_flle  • 

•  history:  n/a  * 

.  . . . . . . . 

struct  box  *trace_table(bp) 

struct  box  *bp; 

( 

static  struct  box  tbox; 

static  char  *sp; 

static  int  count; 

char  •litoaC),  »get_ex_com<) : 

curdepth  =  1; 

exec_f ile->channel  *  fopen(exec_f ile->name,”r") ; 
callcount  *  count  *  0; 

while  (»(ap  =  get_ex_com(exec_file) )  !*  'E') 

{ 

if  (*sp  =*  'C') 

( 

tracedown(sp,l .0,&tbox> ;  \ 

change_bds(bp,&tbox> ; 

) 

♦♦count; 

) 

if  <count  <  1)  prt_error( 18.NILL) ; 
fclose(exec_f ile->channel) ; 
if  (rotate)  trans_box(bp,rotmatrix) ; 
if  ( ! quiet ) 
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(••sploc  !*  S.S. 

( ! (isdigitC ••sploc) ) > )  ♦♦ ( •sploc) ; 


) 


. . . . . . . . 

•  DATE:  9  NOV  1984  • 

•  VERSION:  1.0  * 

•  NAME:  test_space  * 

•  SCNUMBER:  (PC  PROC) 

•  FUNCTION:  Subtracts  the  Input  nuaber  froa  charcount,  if  its  • 

•  equal  to  zero,  then  writes  an  output  and  quit  coaaand  • 

•  to  the  PLOT  file  and  calla  prt_error  with  a  fatal  error.* 

•  Allows  error  reporting  on  PLOT  file  overflow  to  reside  • 

•  in  one  place.  * 

•  [charcount  contains  the  nuaber  of  free  character  • 

•  locations  on  disk  (to  the  nearest  IK  >].  * 

•  INPUTS:  count  -  nuaber  of  chars  to  decreaent  froa  charcount  • 

•  OUTPUTS:  none  • 

•  GLOBAL  VARIABLES  USED:  plot_file,  quiet,  wrtspace,  outfnaae  • 

•  GLOBAL  VARIABLES  CHANGED:  charcount,  nextk  • 

•  FILES  READ:  none  * 

•  FILES  WRITTEN:  none  • 

•  NODULES  CALLED:  pc_output  /  pc_quit  /  prt_error  /  puts  /  itoa  • 

•  CALLING  MODULES:  pc_output  /  pc_quit  /  pc_erase  /  pc_line  /  * 

•  pc  fill  /  pc  draw  /  pc_color  /  pc_text  /  pc_atring  • 

•  HISTORY :~N/A  "  • 

. . . . 

test _space ( count , chan ) 

int  count,  chan; 

( 


static  long 
static  int 
static  char 
char 


diff ; 
teap; 
sp [7] ; 
•itoa( ) ; 


charcount  -■  count; 
if  (charcount  <=  0> 

( 

charcount  ♦=  30000L;  /•  prevents  looping  •/ 

pc_output(chan) ; 
pc_quit(chan) ; 
prt_error(15,NILL) ; 

) 

if  (iquiet) 

( 

diff  *  wrtapace  -  charcount; 
if  (diff  >  nextk) 

( 

diff  =  nextk  /  1024L; 
teap  =  (int)  diff; 
puts<”\r->  "); 
puta(itoa(teap,Bp) ) ; 
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/•••• . ••• 

date:  27  OCT  1964 
VERSION:  1.0 
NAME:  skip_blank 
SCNUMBER:  3.2.4. 1 
FUNCTION:  Skips  CIF  blank  characters  in  input  string  and  Mod¬ 
ifies  string  pointer  to  point  to  next  non-blank  char. 
INPUTS:  fp 
OUTPUTS:  none 

GLOBAL  VARIABLES  USED:  none 
GLOBAL  VARIABLES  CHANGED:  none 
FILES  READ:  fp  (CIF) 

FILES  WRITTEN:  none 
MODULES  CALLED:  isdigit  /  isupper 
CALLING  MODULES:  ck.call 
HISTORY:  N/A 


skip_blank(aploc) 
char  *»sploc; 

{ 

while  ((«*sploc  !*  '-')  && 

(••sploc  !='(')  && 

(••sploc  !*')')  AS. 

(••sploc  LA 

< ! ( isdigit (• *sploc) > )  && 

(t( isupper ( ••sploc) ) )  >  ♦♦(•sploc); 


/*•*•*• . * . 

•  DATE:  26  OCT  19B4 

•  VERSION:  1.0 

•  NAME:  skip_sep 

•  SCNUMBER:  3. 2. 1.4 

•  FUNCTION:  Using  pointer  to  pointer  to  string,  skips  CIF  aep 

•  characters  in  string,  and  Modifies  input  pointer  to 

•  point  to  first  non-sep  character 

•  INPUTS:  sploc  -  pointer  to  pointer  to  string 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  MODULES  CALLED:  isdigit 

•  CALLING  MODULES:  get_integer 

•  HISTORY:  N/A 


if  (scale) 

( 

yt  =  1.0  /  scalenus  *  PAGEWIDTH  •  100.0; 

cifaax  -  (long)  yt; 

offset  «  2L  •  INFINITY; 

if  (cifsax  >  offset)  cifsax  *  offset; 

) 

ylength  *  bp->yaax  -  bp->yain; 
xlength  *  bp->xaax  -  bp->xsin; 
if  (window) 

( 

bp->yain  *  wysin; 
bp->xain  *  wxsin; 
ylength  =  wyaax  -  wyain; 
xlength  «  wxaax  -  wxain; 

) 

if  (scale)  ylength  *  cifaax; 

xt  *  (float)  xlength; 

yt  *  (float)  ylength; 

divide  =  xt  /  yt; 

if  (divide  <*  1.000000)  pnua  «  1; 

else 

( 

if  (aakepage) 

( 

bp->yain  *  bp->yain  ♦  (ylength/2L)  -  (xlength/2L) 
ylength  -  xlength; 
pnua  *  1; 

) 

else  pnua  *  (lnt)  divide  *  1; 

) 

if  (aakepage) 

( 

offset  =  ylength  /  PAGERIH; 
ylength  *  ylength  ♦  (2  *  offset); 
xlength  *  xlength  ♦  (2  •  offset); 
bp->yain  -=  offset; 
bp->xain  -=  offset; 
yt  =  (float)  ylength; 

) 

if  (pnua  >  PAGEMAX)  prt_error( 104 , (itoa (pnua, coastore) )) ; 
bp->yaax  3  bp->yain  ♦  ylength; 

if  (xlength  <  ylength)  bp->xaax  =  bp->xain  *  xlength; 
else  bp->xaax  *  bp->xain  ♦  ylength; 
if  (tscale)  scalenua  3  PAGEWIDTH  /  yt  »  100.0; 
viewport  *  1.0  /  yt; 

•realxaax  =  bp->xain  ♦  xlength; 
return(pnua) ; 
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Vpxr  -  Vpxl  • 

xscreen  * -  ( Xw  -  Wdxl  >  ♦  Vpxl  • 

Wdxr  -  Wdxl  • 

The  viewport  variable  la  equal  to  the  result  of  the  • 
division  and  is  a  constant  for  each  page  for  both  x  and  • 
y.  The  viewport  xr  and  xl  are  equal  to  the  PLOT.COM  • 

values  of  1.0  and  0.0  respectively.  The  equation  now  • 
reduces  to:  • 

xscreen  «  viewport  •  (Xw  -  Wdxl)  • 

Xw  and  Wdxl  are  in  CIF  units  and  vary  froa  page  to  page.* 
A  transforaation  is  done  on  each  point  before  output  to  • 
■ove  it  froa  CIF  units  to  the  rotated  and  tranlated  axles 
of  PL0T.C0M.  This  always  aovea  Wdxl  to  0.  Thus  the  • 

windowing  transforaation  reduces  to  a  single  aultipli-  • 
cation.  The  page  is  deterained  as  follows:  • 

1)  if  a  scale  is  specified,  then  the  aaxiaua  possible  • 
is  deterained  froa  this  scale,  else  the  aaxiaua  y  is  • 
2  •  INFINITY. 

2)  if  a  window  is  specified,  then  the  page  bounds  are  • 

set  to  this,  else  they  are  set  to  the  actual  bounds  • 
of  the  CIF  file.  * 

3)  if  the  window  value  exceeds  the  input  scale,  then  the* 

plot  window  is  reduced  to  the  value  deterained  by  the* 
the  scale.  • 

4)  the  nuaber  of  pages  required  to  plot  the  file  with  • 

y  aaxiaua  is  deterained  by  a  division  and  returned  • 
as  pnua.  « 

5)  if  aakepage  is  TRUE,  these  bounds  are  further  • 

to  fit  one  one  page  with  PAGERIM  boundries.  ■ 

INPUTS:  bp  (aaxiaua  bounds  of  entire  plot)  • 

realxaax  -  location  to  store  real  x  aaxiaua  vlaue  * 
OUTPUTS:  pnua  (nuaber  of  pages  for  plot)  • 

process  also  aodifies  input  box  and  realxaax  • 

GLOBAL  VARIABLES  USED:  window,  scale,  scalenua,  wxain,  wxaax,  • 
wyain,  wyaax,  aakepage 

GLOBAL  VARIABLES  CHANGED:  viewport,  coaatore 
FILES  READ:  none 
FILES  WRITTEN:  none 
MODULES  CALLED:  itoa  /  prt_error 
CALLING  MODULES:  bld^file 
HISTORY:  N/A 

set_page( bp, realxaax) 
struct  box  *bp; 

long  *realxaax; 

( 

static  long  offset,  xlength,  ylength,  cifaax 

static  float  divide,  xt,  yt; 

static  lnt  pnua; 


puts(r2) ; 
s treat (pban,r2> ; 
litoa(bp->ysin, cosstore) ; 
puts (cosstore) ; 
strcat(pban, cosstore) ; 
puts(r2) ; 
strcat(pban,r2) ; 
litoa(bp->ysax, cosstore) ; 
puts (cosstore) ; 
strcat(pban, cosstore) ; 
puts("\nM) ; 

strcat(pban,"\015\012") ; 

puts(r3); 

strcat(pban,r3) ; 

place  *  pban  ♦  strlen(pban) ; 

ftoa ( 'F' , 7, scalenus, pi ace ) ; 

puts(place) ; 

puts(r4) ; 

street ( pban, r4) ; 

street (pban, “\015\012") ; 

puts("\nThe  plot  will  be  "); 

dlff  *  (float)  realx  -  bp->xsin; 

Is  *  diff  /  1200.0  •  scalenus; 
ftoa('F' ,7, is, cosstore) ; 
puts (cosstore) ; 
puts ( "  feet\n**); 

If  (err_flag)  prt_error (19, MILL) ; 

If  (Interactive) 

( 

puts ("Do  you  want  a  plot?  ">; 

If  ( t quiet)  puts("\007") ; 
cosstore  (11  ■  getcharO; 

If  ( (cosstore (11  »■  'y'>  II  (cosstore tl]  **  'Y'))  return; 
else  abort(O); 

) 


. . . 

DATE:  9  NOV  1984 
VERSION:  1.0 
NAME:  set_page 
SCNUNBER:~4.2 

FUNCTION:  Deternines  the  size  of  a  PLOT.COM  page.  Cosputes 
and  returns  the  nuaber  of  pages  required  to  sake  a 
cosplete  plot  and  sodifies  the  input  box  to  the  correct 
size  for  the  first  page.  Three  factors  are  considered 
In  these  calculations  -  the  scale  of  the  plot,  the 
window  of  the  plot,  and  the  bounding  box  of  the  plot. 
Also  sodifies  the  input  xnax  value  to  the  real  xsax 
after  windowing  and  scaling.  Modifies  the  global 
variable  viewport  using  the  forsula  fros  Newsan  page  75. 
Since  the  window  is  always  square  one  value  will  do  for 
both  x  and  y  conversion  to  the  viewport. 

The  basic  equation  is: 
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DATE:  9  MOV  1984 
VERSION:  1.0 
NAME:  report_slze 
SCNUMBER:  4.3 

FUNCTION:  Outputs  the  size  end  scale  of  plot  to  the  terminal 
in  the  cifplot  forest.  If  interactive  is  TRUE  asks  if 
plot  should  be  made.  Sets  up  output  banner  for  plot  in 
the  global  variable  pban.  If  user  does  not  want  plot, 
or  if  err_flag  is  true  calls  abort  to  quit. 

INPUTS:  bp  -  pointer  to  page  bounds,  xaax  aaxiaun  x  plot 
bounds 

OUTPUTS:  none 

GLOBAL  VARIABLES  USED:  err_flag,  scalenus,  interactive,  quiet 
GLOBAL  VARIABLES  CHANGED:  pban,  coastore 
FILES  READ:  none 
FILES  WRITTEN:  none 

MODULES  CALLED:  puts  /  lltoa  /  ftoa  /  getchar  /  abort 
prt_error 

CALLING  MODULES:  bld_file 
HISTORY:  N/A 


repor t_aize ( bp , xeax ) 
struct  box  »bp; 

long  xeax; 

r  { 

static  char 
static  char 
static  char 
static  char 
static  unsigned 
static  char 
static  float 
static  long 
char 

pban (01  *  NULL; 
strcat(pban,"ecifplot«  of  "); 
atrcat(pban,cif_f ile->naee) ; 
strcat(pban,"\015\012") ; 
puta("\n") ; 
puts(rl ) ; 
strcat(pban,rl) ; 
litoa<bp->xain, coastore) ; 
puts(coBstore) ; 
street ( pban , coastore ) ; 
puts(r2> ; 
streat (pban, r2) ; 

if  (xeax  >  bp->xeax)  realx  *  xeax; 
else  realx  *  bp->xaax; 

1 itoa( realx, coastore) ; 
puts (coastore) ; 
atreat (pban, coastore) ; 


•rl  *  "Window: 

•r2  *  "  "; 

•r3  *  "Scale:  1  eicron  is  "; 

•r4  *  "  inches"; 

place; 

sp(121 ; 

diff,  ie; 

realx; 

•litoa( ) ; 
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pc_color ( BLACK , plot_f i le- >channel ) ; 
pc_point(xb,yb,plot_f ile~>channel ) ; 
return; 

) 

if  (outline  I  I  Scolor) 

( 

pc_color( BLACK, plo*  file->channel) ; 

if  (xline  &&  !clipped->left>  pc_draw(xb,yb,xt,yb,plot_file->channel) ; 
if  (xline  &&  !clipped->right)  pc_draw(xb,yt,xt,yt,plot_file->channel) ; 
if  (yline  &&  !clipped->bottos>  pc_draw(xb,yb,xb, yt,plot_file->channel) ; 
if  (yline  &&  tcllpped->top>  pc_draw(xt,yb,xt,yt,plot_f ile->channel ) ; 

) 

if  (color  &&  xfill  &&  yfill) 

( 

pc_color (color ,plot_file->channel > ; 

pc_f ill(xb,yt,xt,yt,yb,plot_f ile->channel) ; 

) 

) 

. . * . . . 

•  DATE;  27  OCT  1984  • 

•  VERSION:  1.0 

•  NAME:  put_co»  • 

•  SCNUMBER:~3.3.1  * 

•  FUNCTION;  Writes  one  string  to  the  file  specified  by  the  input* 

•  file  pointer.  Adds  NEWLINE  after  string.  • 

•  INPUTS:  fp,  sp  • 

•  OUTPUTS:  none  • 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  charcount  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  fp->channel 

•  MODULES  CALLED:  putc  /  prt_error  /  strlen  /  fclose  • 

•  CALLING  MODULES:  wrt_ex_flle 

•  HISTORY:  N/A  * 

.  . . * . * . * . . 

pUt_COH(fp,Sp) 

struct  file  *fp; 
char  *ap; 

( 

static  int  count; 

count  *  strlen (sp)  *  2; 
charcount  -■  count; 

if  (charcount  <*  1)  prt_error(16,NILL) ; 
while  (*sp) 

{ 

putc(*sp,f p->channel > ; 
sp**; 

) 

putc ( NEWLINE ,fp->channel ) ; 

) 


else  If  (error  >  1999) 

( 

puts("\n") ; 

puta(" — >  Warning:  **); 

) 

while  <<c  =  getc(er_file->channel)>)  putchar(c); 

» 

. . . . . 

•  DATE:  9  NOV  1984 

•  VERSION*.  1.0 

•  NAME:  put_box 

•  SCNUMBER : ~4 . 5 . 2 . 1 . 3 

•  FUNCTION:  Uses  plot  cossands  to  write  one  box  to  PLOT  file 

•  If  outline  is  TRUE,  writes  lines  to  outline  box,  else 

•  just  fills  box  region  with  input  color  (an  input  color 

•  *  0  forces  output  of  box  outline  with  no  fill).  The 

•  viewport  transforaation  is  used  to  scale  box  to 

•  PL0T.C0N  units.  Assumes  transformations  and  clipping  is 

•  complete  and  box  has  Manhattan  directions. 

•  INPUTS:  bp,  color,  cliprec 
«  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  plot_file,  outline,  viewport 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  PLOT 

•  MODULES  CALLED:  pc_color  /  pc_fill  /  pc_point 
«  CALLING  MODULES:  proc_call 

•  HISTORY:  N/A 

. . . . . . . * . . 

put_box (bp, color, clipped) 
struct  box  »bp; 

int  color; 

struct  cliprec  "clipped; 

( 

static  float  dlff,  xb,  xt,  yb,  yt; 

static  int  xfill,  yfill,  xline,  yline; 

xb  *  (float)  viewport  *  bp->xmin; 
xt  =  (float)  viewport  *  bp->xaax; 
yb  =  (float)  viewport  »  bp->ymin; 
yt  =  (float)  viewport  •  bp->ymax; 

xfill  =  yfill  =  xline  =  yline  =  FALSE; 
diff  =  xt  -  xb; 

if  (diff  >  MINLINE)  xline  =  TRUE; 

if  (diff  >  MINFILL)  xfill  =  TRUE; 

diff  *  yb  -  yt; 

if  (diff  >  MINLINE)  yline  =  TRUE; 

if  (diff  >  MINFILL)  yfill  «  TRUE; 

if  (lxline  &£.  Jyline) 

{ 
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» 


a  <r 

i 


trantoplot(bp) 
struct  box  *bp; 

( 

static  long  offset,  tesp; 

offset  *  pwindow.xsin  ♦  (pwindow.ysax  -  pwindow.ysin); 
tesp  *  bp->yain  -  pwindow.ysin; 
bp->yain  =  offset  -  bp->xsin; 
bp->xain  =  tesp; 

tesp  =  bp->ysax  -  pwindow.ysin; 
bp->ysax  =  offset  -  bp->xsax; 
bp->xsax  =  tesp; 


} 

. . . . 

•  DATE:  29  OCT  1984  • 

•  VERSION:  1.0  • 

•  NAME:  wrt_ex_f ile  • 

•  SCNUHBER:  3.i  • 

•  FUNCTION:  Checks  all  executable  cossands  for  syntax  and  writes* 

•  thes  to  the  EXECUTABLE  file  if  errors  are  not  found.  * 

•  Closes  file  when  E  cossand  is  found  and  prints  error  if  • 

•  additional  cossands  are  found  after  the  E  cossand.  • 

•  INPUTS:  cos_string  • 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  end  • 

•  GLOBAL  VARIABLES  CHANGED:  exbounds,  exlayer,  build  • 

•  FILES  READ:  none  * 

•  FILES  WRITTEN:  none  * 

«  NODULES  CALLED:  ck_box  /  ck_call  /  ck_round  /  ck_layer  • 

•  litoa  /  ck_wire  /  do_lcoa  /  put_cos  /  litoa  /  puts  • 

•  ck_9  /  prt_error  /  fclose  /  change_bds  /  isdigit  • 

•  CALLING  MODULES :~parse_cif 

•  HISTORY:  N/A  • 

. . . * . . 

wrt_ex_f ile(coa_string) 

char  *cos_string; 

( 

struct  box  »ck_box<) , *ck_wire<) , »ck_round< ) ; 

struct  box  «newbox; 

char  *dussy,  apC15),  *litoa(); 

if  (isdigit(*cos_string)  &&  lextension)  prt_error (1006,cos_string) 
else 

( 

switch  ( *cos_string) 

( 

case  'B': 

if  (exlayer)  prt_error (502,cos_string) ; 
newbox  *  ck_box(cos_string) ; 
if  (newbox  !=  NILL) 

( 
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change_bds(&exbox, newbox) ; 
put_cos(exec_f ile,co*_string) ; 

} 

else  build  =  FALSE; 
break; 
case  'R': 

if  (exlayer)  prt_error(502,cos_string) ; 
newbox  =  ck_round(coa_atring> ; 
if  (newbox  1  =  MILL) 

( 

change_bds(&exbox, newbox) ; 
put_co*(exec_file,co*_string) ; 

) 

else  build  *  FALSE; 
break; 
case  'W': 

if  (exlayer)  prt_error (502,co*_string) ; 
newbox  z  ck_wire(co*_string) ; 
if  (newbox  !*  NILL) 

{ 

change_bds(&exbox, newbox) ; 
put_cos (exec_f ile,co*_string) ; 

) 

else  build  *  FALSE; 
break; 
case  'P': 

prt_error (1007,cos_string) ; 
if  (exlayer)  prt_error (502,co*_string) ; 
newbox  =  ck_poly (cos_string) ; 
if  (newbox  7*  NILL) 

( 

change_bds(&exboxr newbox) ; 
put_co* ( exec_f i le , cos_str i ng ) ; 

) 

else  build  =  FALSE; 
break; 
case  'L': 

ck_layer(cos_string) ; 
exlayer  =  FALSE; 
put_cos(exec_file,cos_string) ; 
break; 
case  'C': 

if  (ck_call (cos_string) )  build  =  FALSE; 
else  put_co»(exec_f ile,co*_string) ; 
break; 
case  '1': 

do_lcos(co*_string) ; 
put_co»(exec_f ile,co*_string) ; 
break; 
case  '2'; 

prt_error(1001,co*_Btring) ; 

/•  if  (text)  ck_2(co«t_string) ; 

/»  put_co*(exec_f ile,cos_string) ; 

break; 


(• 


/* 

/• 

/• 

/• 

/* 

/« 

/• 

/• 


•  / 
•/ 
«/ 
•  / 
•  / 
•  / 
•  / 
•  / 


•  / 
•  / 
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case  '9': 

if  (•(coa_atring*l)  !*  '4'  fi.fi.  sysbolnase) 

( 

prt_error ( 1005,co*_string) ; 
break; 

) 

if  (pointnane) 

{ 

ck_9(co*_atring> ; 
put_cos(exec_f ile,co*_string) ; 

} 

break; 
case  'O': 

prt_error (500,co*_string> ; 
break; 
caae  'D': 

if  < • (cos_string+l )  ==  'D'>  prt_error (200,coa_atring> ; 
else  if  <»(co*_atring+l)  *=  'F')  prt_error (201 ,NILL) ; 
else  prt_error (501 ,cos_atring) ; 
break; 
case  'E': 

if  (strlen(cos_string)  >  1  fi.fi.  • (coa_string*l )  !  =  NEWLINE) 
( 

prt_error(1003,cos_atring) ; 

) 

put_coa(exec_f ile,cos_string) ; 
end  *  TRUE; 

fclose(exec_f ile->channel ) ; 

♦♦totcossand; 
if  (tqulet  &&  build) 

( 

puta("\r->  ”); 
putsCparsing  "); 
puts(cif _f ile->nase> ; 
puts(";  "); 

--line_nuaber; 

dussy  *  litoa(line_nu»ber,sp) ; 
puts(sp) ; 

putsC  lines  read  "); 
puts("\n"> ; 

) 

break; 
case  NULL: 

if  (tend)  prt_error(13,NILL) ; 
break; 

default: 


prt_error (503, cos  string); 


box,  trtalxmiM 
box,  rta 1 nmin 


bid  st 


•  1*  com_*trinQ.  4*yr*mum,  4sym_ascalc,  4sym_oscale 


TITLEi  build  eyabol  table  -  adds  ont  et  entry 


5  November  190* 


#1*  com  string,  sploc,  Along 
*d:  com  string,  sploc,  ooint 
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format,  aip 


its,  float,  so 
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NODE  i  *.5.1 


TITLEj  do.grid  -  do  grid  on  plot 


•  It  com_*tring,  soloc,  Along 
•c::  com_*tnng,  sploc,  point 
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NODE  j  3.2.3 


TITLE:  check  round  -  checks  CJF  Round flash  Command 


I 


5  November  1984 


NODE :  2. 1 


TITLE!  get  cedrc  ootions  -  get*  CODRC  line  from  file 


27  OctoDer  198* 


get ^ci f _com 


/77T\\ 

//!  \\\ 

///  \\\ 
/  /  \  ' 


7  /  I 

/  / 

o/-n  I  9 

f 0/  /  /  non&lank /errnun,  so! 

»-  /  d  j 

/  / 


\  \  \ 

\  \  \ 

\  \  \ 

\  \  \ 


\  VA  \ 

\  ch*r>  \  A  \count  \ 

Vw  \° 

chan  i  \  Vchar  \  chan  \  \  \count 


f %ko  comment  I  fsHp  6 lank 


NODE:  3. 1 


TITLE:  get  CIF  command  -  get  one  CIF  command 


i  5  November  I9d4 

I 


NODES  4.5.  2.  4 


TITLE*  get_layer  -  get *  color  for  CIF  Layer 


7  November  1984 


•Is  com^str ing,  soloc,  Along 


•Is  fp,  record 

•2x  cow_fttring,  seal*,  trinil,  tran*2 


Ch*^/c \l*q 


isdigit 


C88  PROC  J  3.2.8 


•'cow  st rim 


box, trans 


NODE*  4. 5. 2. 5  TITLE*  process  call  -  process  CIF  Call  Command 


5  November  1984 


•  Is  t>o*lf  box2t  cliprec 
•2*  Don,  color,  cliprec 


0133 


K 


par_opt ion* 


part  1  of  2 


2.2 


s 

R 


name 


TITLEi  main  -  imti  Lizes  and  calls  major  procedures 


19  November  1984 


report  _size 


I  i  of  2 


I  4.3 

'/  7  I  \' 


/ 


/ 

/  / 


/ 


/ 


/ 

/ 


\  \ 


\  \ 


/ 


fi 


/  /char 
'  C 


loetcnar  i 


\ 


\ 

■?\ 

sol,  5Di',  t 


\ 

o\ 


5D\.\  \  count 

"  \° 


iC8«3  PROC 


•It  ftp,  scale,  transl,  tr*n«2 
•2t  co«»_*tring,  scale,  bon 
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APPENDIX  D.  Data  Dictionary 


Appendix  D  contains  the  Data  Dictionary  for  mcif plot. 
It  includes  four  sections  for  the  four  different  types  of 
data  items:  constants,  files,  structures,  and  variables. 
Each  section  is  in  alpabetical  order  and  multiple  items  are 
listed  on  each  page  to  conserve  space. 


CONSTANTS 


\NLENGTH 

jACK 

\DOPTMAX 

jOSEROOM 

NOTIFY 

)NVERT 

)F 

(NAME 

VLSE 

2ETMICRON 

JFINITY 

VYERMAX 

IOTIFY 

(XCOMLEN 

2SFILE 

:nline 

[NFILL 

JSTLIMIT 

JWLINE 

:ll 

) 

ILL 

lGEMAX 

iGERIM 

iGEWIDTH 

iOTCHARS 

ITCURDISK 

iVEZONE 

ILECTDISK 

IUE 

IRSION 

ITE 

IOTIFY 

S 
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MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS  196?  A 


NAME:  BANLENGTH 
TYPE:  CONSTANT 
DATE:  25  June  1984 


DESCRIPTION:maximumlength  ofoptional  banner  =  80 

CR  =1 

LF  =1 

NULL  =  1 

83  total 


this  is  used  as  the  length  of  the  array  for 
storing  it 

DATA  CHARACTERISTICS:  integer 
VALUES:  83 


NAME:  BLACK 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  PLOT.COM  color  for  Black 
DATA  CHARACTERISTICS:  integer 
VALUES:  127 


NAME:  CADOPTMAX 
TYPE:  CONSTANT 
DATE:  2  July  1984 

DESCRIPTION:  Constant  which  specifies  the  maximum  number  of 
options  that  can  be  obtained  from  the  CADRC 
File. 

DATA  CHARACTERISTICS:  integer 
VALUES:  30 


NAME:  CIF  BUFFER 
TYPE:  CONSTANT 
DATE:  31  May  1984 

DESCRIPTION:  Length  of  buffer  for  reading  in  CIF  file 
DATA  CHARACTERISTICS:  integer 
VALUES:  1024 


NAME:  CLOSEROOM 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  The  number  of  characters  required  to  close  an 
output  vector  file.  This  space  must  be 
subtracted  from  the  available  space  to  write 
other  PLOT.COM  commands. 

DATA  CHARACTERISTICS:  long 

VALUES:  1  'O'  +  1  ’Q'  +  3  safety  zone  =  5 


NAME:  CNOTIFY 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  Call  notify  -  the  number  of  times  to  write  a 

status  message  to  the  standard  out  when 
finding  plot  bounds.  A  message  is  written 
every  CNOTIFY  calls. 

DATA  CHARACTERISTICS:  long 
VALUES:  10 


NAME:  CONVERT 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  Used  to  convert  the  number  returned  by 
get_space  to  characters.  Thus  the  total 
number  of  characters  that  can  be  written  to  a 
new  file  on  disk  can  be  determined. 

DATA  CHARACTERISTICS:  long 

VALUES:  1024  (number  of  bytes  in  one  1  K) 


NAME:  EOF 
TYPE:  CONSTANT 
DATE:  4  July  1984 

DESCRIPTION:  Flag  which  signals  end  of  file 
DATA  CHARACTERISTICS:  integer 
VALUES:  -1 


NAME:  EXNAME 
TYPE:  CONSTANT 
DATE:  1  NOV  84 

DESCRIPTION:  The  name  of  the  EXECUTABLE  file  on  disk. 

DATA  CHARACTERISTICS:  char  array  (string) 

VALUES:  EXCOM.TMP 


NAME:  FALSE 
TYPE:  CONSTANT 
DATE:  22  May  1984 

DESCRIPTION:  Boolean  value  for  false. 
DATA  CHARACTERISTICS:  integer 
VALUES:  0 


NAME:  FEETMICRON 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  The  number  of  feet  in  one  micron 
DATA  CHARACTERISTICS:  float  (in  exponential  form) 

VALUES: 

2.54  mils  1  inch  1  foot 

-  *  -  *  - =  2 . 1167e-4 

1  micron  1000  mils  12  inches 


NAME:  INFINITY 
TYPE:  CONSTANT 
DATE:  30  May  1984 

DESCRIPTION:  Maximum  legal  CIF  number  (see  Hon) . 
DATA  CHARACTERISTICS:  long  integer 
VALUES:  16777215 


NAME:  LAYERMAX 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  Maximum  number  of  different  layers  that  can  be  specified. 
DATA  CHARACTERISTICS:  integer 
VALUES:  15 


NAME:  LNOTIFY 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  Line  notify  -  specifies  how  often  to  display 

a  status  message  on  the  standard  out  when 
parsing  the  CIF  file.  A  status  message  is 
written  every  LNOTIFY  lines  parsed. 

DATA  CHARACTERISTICS:  long 
VALUES:  100 


NAME:  MAXCOMLEN 
TYPE:  CONSTANT 
DATE:  4  July  1984 

DESCRIPTION:  The  maximum  number  of  characters  allowed  in 

one  command.  Specified  to  limit  the  size  of 
buffer  required. 

DATA  CHARACTERISTICS:  integer 
VALUES:  161  (two  80  char  lines) 


NAME:  MESFILE 
TYPE:  CONSTANT 
DATE:  1  NOV  84 

DESCRIPTION:  The  name  of  the  MESSAGE  file  on  disk. 

DATA  CHARACTERISTICS:  char  array  (string) 

VALUES:  MESSAGE . BIN 


NAME:  MINLINE 
TYPE:  CONSTANT 
DATE:  1  NOV  84 

DESCRIPTION:  The  minimum  length  of  a  line  to  be  written  to 
the  output  PLOT  file.  Lines  in  geometric 
elements  which  are  smaller  than  this  are  not 
written. 

DATA  CHARACTERISTICS:  float 
VALUES:  .001  (1.0  /  1000) 

The  printer  would  require  a  resolution  greater  than  250 
dpi  for  a  line  which  is  smaller  than  .001  to  require 
more  than  one  dot.  As  a  comparison,  the  Versetec 
printer  has  a  resolution  of  200  dpi. 


NAME:  MINFILL 
TYPE:  CONSTANT 
DATE:  1  NOV  84 

DESCRIPTION:  The  minimum  width  of  a  FILL  command  to  be 
written  to  the  output  PLOT  file.  FILLS  which 
are  smaller  than  this  are  not  written. 

DATA  CHARACTERISTICS:  float 
VALUES:  .002  (2  *  MINLINE) 

FILL’S  require  at  least  a  2  dot  width  to  be 
distinguished  from  a  line. 


NAME:  NESTLIMIT 
TYPE:  CONSTANT 
DATE:  7  SEP  84 

DESCRIPTION:  The  maximium  depth  that  symbol  nesting  will  be 
traced.  This  is  the  default  value  for  depth. 
DATA  CHARACTERISTICS:  integer 
VALUES:  20 


NAME:  NEWLINE 
TYPE:  CONSTANT 
DATE:  30  June  1984 
DESCRIPTION:  Carriage  return 
DATA  CHARACTERISTICS:  char 
VALUES:  '\n' 


NAME:  NILL 
TYPE:  CONSTANT 
DATE:  4  July  1984 

DESCRIPTION:  Empty  pointer  value,  signals  pointer  to 
nothing. 

DATA  CHARACTERISTICS:  integer 
VALUES:  0 


NAME:  NO 
TYPE:  CONSTANT 
DATE:  4  July  1984 

DESCRIPTION:  Used  to  signify  false  for  a  character  variable 

(like  the  the  flags  in  the  symbol  table). 

DATA  CHARACTERISTICS:  character 
VALUES:  'O' 


NAME:  NULL 
TYPE:  CONSTANT 
DATE:  23  June  1984 

DESCRIPTION:  character  to  signal  end  of  string 
DATA  CHARACTERISTICS:  character 
VALUES:  ' \0 ' 


NAME:  PAGEMAX 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  The  maximum  number  of  pages  allowed  for  output. 

Prevents  the  start  of  a  plot  that  could  not 
possibly  fit  on  disk  (or  would  take  several 
hours  to  plot) . 

DATA  CHARACTERISTICS:  integer 
VALUES:  20 


NAME:  PAGERIM 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  The  percent  of  white  space  to  leave  around  the 
outside  of  a  plot  specified  with  the  makepage 
option. 

DATA  CHARACTERISTICS:  int 
VALUES:  10 
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NAME:  PAGEWIDTH 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  Width  of  page  in  inches  -  used  to  determine  the 
inches  per  micron  value  of  plot. 

DATA  CHARACTERISTICS:  float 
VALUES :  8.0 


NAME:  PLOTCHARS 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  The  number  of  ASCII  characters  that  can  be 
printed  across  one  page.  Used  to  clip  text  to 
the  edge  of  the  page.  Set  to  a  minimum  possible 
PLOT.COM  installation  value  to  insure 
compatibility  with  all  versions. 

DATA  CHARACTERISTICS:  long 
VALUES:  80L 


NAME:  RETCURDI SK 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  The  number  of  the  CPM  BDOS  call  that  returns 
the  number  of  the  current  disk. 

DATA  CHARACTERISTICS:  int 
VALUES:  25 


NAME:  SAVEZONE 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  The  number  of  bytes  of  memory  used  to  seperate 
the  top  of  the  Symbol  Table  from  the  stack  as 
it  grows  downward. 

DATA  CHARACTERISTICS:  int 
VALUES:  200 


NAME:  SELECTDISK 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  The  number  of  the  CPM  BDOS  call  that  selects 
the  input  disk  number. 

DATA  CHARACTERISTICS:  int 
VALUES:  14 
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NAME:  TRUE 
TYPE:  CONSTANT 
DATE:  22  May  1984 

DESCRIPTION:  Boolean  value  for  true 
DATA  CHARACTERISTICS:  integer 
VALUES:  1 


NAME:  WHITE 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  PLOT.COM  color  for  White 
DATA  CHARACTERISTICS:  integer 
VALUES:  0 


NAME:  VERSION 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  A  character  which  represents  the  current 
version  of  mcifplot. 

DATA  CHARACTERISTICS:  array  of  characters  (string) 

VALUES:  Version  1.0\tl5  November  1984 


NAME:  WNOTIFY 
TYPE:  CONSTANT 
DATE:  5  SEP  84 

DESCRIPTION:  Write  notify  -  the  number  of  times  to  display  a 
status  message  on  the  standard  out  when  writing 
the  PLOT  file.  A  message  is  written  every 
WNOTIFY  characters. 

DATA  CHARACTERISTICS:  long 
VALUES:  2048  (2  K) 


NAME:  YES 
TYPE:  CONSTANT 
DATE:  4  July  1984 

DESCRIPTION:  Used  to  signify  true  for  a  character  variable 
(like  the  the  flags  in  the  symbol  table). 

DATA  CHARACTERISTICS:  character 
VALUES:  '1* 


STRUCTURES 


box 

clirec 

file 

point 

symbol 


NAME :  box 
TYPE:  STRUCTURE 
DATE:  12  JUL  1984 

DESCRIPTION:  Used  to  pass  and  store  the  xmin,ymin,xmax,ymax 
of  a  box.  For  passing  bounds  of  a  particular 
box  or  bounding  box  of  a  symbol. 

COMPOSITION: 

struct  box  { 

long  xmin; 

long  xmax; 

long  ymin; 

long  ymax; 

1; 


NAME:  cliprec 

TYPE:  STRUCTURE 

DATE:  5  NOV  1984 

DESCRIPTION:  Used  to  store  "boolean"  values  which  record  the 
status  of  a  clipped  box.  If  the  box  has  been 
clipped  on  the  top,  bottom,  left,  or  right, 
then  the  value  is  set  to  TRUE,  else  the  value 
is  set  to  FALSE.  A  box  outline  is  drawn  only  on 
the  unclipped  side  of  the  box. 

COMPOSITION: 

struct  cliprec  [ 

int  top; 

int  bottom; 

int  left; 

int  right; 

3; 


D-ll 


T 


NAME:  file 
TYPE:  STRUCTURE 
DATE:  30  June  1984 

DESCRIPTION:  for  control  of  file  I/O  information 
COMPOSITION: 

name  -  CPM  file  name  storage 

mode  -  mode  of  file  I/O  =  =  r  /  w  /  u  /  rb  /  rw  /  ru 
channel  -  C80  channel  number  for  file  when  open 
next_char  -  pointer  to  next  buffer  character 
buff_start  -  pointer  to  buffer  start  in  memory 
buff  size  -  size  of  file  I/O  buffer 


struct  file  C 


char 

name [15]  ; 

char 

mode [2]  ; 

int 

channel ; 

char 

*next  char; 

char 

*buf f_start ; 

int 

buff  size; 

}  ; 

NAME:  point 
TYPE:  STRUCTURE 
DATE:  12  JUL  1984 

DESCRIPTION:  Used  to  pass  x,y  coordinate  of  a  point. 
COMPOSITION: 

struct  point  [ 

long  x; 
long  y; 

1  ; 


NAME:  symbol 
TYPE:  STRUCTURE 
DATE:  5  SEP  84 

DESCRIPTION:  One  symbol  entry  is  created  for  each  symbol  in 
the  CIF  file  and  added  to  the  linked  list  which  forms  the 
symbol  table.  A  few  words  of  justification  on  the  size  and 
composition  of  the  symbol  structure:  Some  data  elements  of 
course  had  to  be  at  least  a  certain  size  like  the  offset  and 
record  (the  types  of  these  are  very!  unclear  in  the  C/80 
documentation  -  I've  taken  a  good  guess).  Limiting  symbol 
numbers  to  0  -  65K  should  present  no  practical  problems,  but 
it  certainly  falls  under  the  catagory  of  an  "arbitrary" 
restriction.  Originally,  the  scale  was  to  be  stored  in  the 
table  to  allow  representa  ion  of  the  bounds  as  4  short 
integers.  It  appears  to  be  most  economical  to  store  the 
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scale  and  to  store  true  (scale  included)  bounds  values  in  4 
long  integers.  The  bounds  will  be  used  to  determine  the 
window  of  the  entire  plot  and  to  quickly  decide  if  a  symbol 
is  in  the  output  window.  Originally,  the  bounds  were  to  be 
integers  which  when  multiplied  together  with  the  scale  could 
represent  any  legal  CIF  number.  However,  if  the  bounds  of  a 
symbol  happen  to  exceed  the  range  of  short  integers,  then 
the  scale  values  and  bounds  values  will  have  to  be 
"rescaled"  (one  or  the  other  increased  so  that  the  bounds 
can  be  represented  by  short  integers).  The  code  to 
accomplish  the  check  and  rescaling  will  probably  exceed  the 
savings  in  space  gained  by  using  short  integer  values.  The 
average  CIF  file  (from  my  experience)  contains  from  5-40 
symbols.  This  means  that  the  increase  in  size  for  the  table 
will  run  from  about  30-240  bytes.  I  think  this  choice  is  a 
reasonable  compromise  and  will  also  allow  for  simplification 
of  the  code  in  other  areas.  The  same  justification  can  be 
applied  to  the  decision  to  use  a  character  for  each  flag  vs. 
setting  and  checking  bits  in  one  character. 

COMPOSITION: 

number  -  number  of  symbol 

offset  -  offset  of  start  of  symbol  from  start  of  file 
record  -  record  number  of  start  of  symbol, 

if  >  than  255  then  offset  relative  to  record 
scale  -  A/B  value  of  symbol  (division  complete) 
sxmin  -  minimum  x  of  symbol  bounding  box 

symin  -  minimum  y  of  symbol  bounding  box 

sxmax  -  maximum  x  of  symbol  bounding  box 

symax  -  maximum  y  of  symbol  bounding  box 

calls  -  YES  if  symbol  has  calls  to  another  symbol 
inuse  -  YES  if  symbol  is  being  traced 
next  -  pointer  to  next  symbol  (no  more  =  NILL) 

struct  symbol 

( 

long  number; 

int  offset; 

int  record; 

float  scale; 

long  sxmin; 

long  symin; 

long  sxmax; 

long  symax; 

char  calls; 

char  inuse; 

struct  symbol  *next; 

) 


a— 7" 


'S' 


FILES 


CADRC 
Cl  F 

EXECUTABLE 

MESSAGE 

PATTERN 

PLOT 
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NAME:  idenity 


TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  3X3  matrix  which 


(diagonal  = 
PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 
DATA  TYPE:  array[9]  of 

VALUES:  pointer  to 

values 

STORAGE  TYPE:  glo  bal  to 


1.0) 

floats 
array  of 

mcif plot 


is  the  idenity  matrix 


float  with  the 


idenity 


NAME:  inmestab 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  "Boolean"  variable,  used  to  indicate  whether  or 
not  the  table  of  message  numbers  and  offsets 
has  been  read  from  the  MESSAGE  file  into 


memory . 

PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 
DATA  TYPE:  integer 

VALUES:  TRUE  or 

STORAGE  TYPE:  global 


FALSE 
to  main 


NAME:  last_symbol 
TYPE:  VARIABLE 
DATE:  4  July  1984 

DESCRIPTION:  Pointer  to  the  the  last  symbol  added  to  the 
symbol  table.  Used  to  allow  linking  of  symbols 
via  next  variable,  initially  set  to  NIL. 

PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 

DATA  TYPE:  pointer  to  symbol  structure 

VALUES:  NIL  to  pointer 

STORAGE  TYPE:  global  to  parse_cif 
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NAME:  exlayer 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  "boolean"  variable  which  indicates  that  a  layer 
has  been  specified  for  the  Executable  commands. 
PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 
DATA  TYPE:  integer 

VALUES:  TRUE  or  FALSE 

STORAGE  TYPE:  global  to  parse_cif 


NAME:  flag 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  A  "boolean"  variable  used  to  indicate  if  a 
condition  is  true  or  not. 

PASSED  FROM:  isdigit  /  isspace  /  isalpha 

PASSSED  TO:  bld_st  /  ck_start  /  ck_9  /  ck_box  /  ck_wire  / 
do_9xcom  /  ck_layer  /  do_box 
COMPOSITION:  N/A 
DATA  TYPE:  integer 

VALUES:  TRUE  or  FALSE 

STORAGE  TYPE:  passed 


NAME:  fp 
TYPE:  VARIABLE 
DATE:  26  June  1984 

DESCRIPTION:  pointer  to  file  structure  which  contains 
information  on  the  f i le 
PASSED  FROM:  par_options  /  bld_st 
PASSSED  TO:  file_open  /  get_cif_com 
COMPOSITION:  N/A 

DATA  TYPE:  pointer  to  a  file  structure 
VALUES:  pointer  values 
STORAGE  TYPE:  passed 
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NAME:  error 


TYPE:  VARIABLE 

DATE:  7  NOV  84 

DESCRIPTION:  A  "boolean"  variable  used  to  signal  success  or 
failure  when  returned  from  many  different 
processes . 

PASSED  FROM:  ck_call  /  get_integer  /  ck_9  /  get_point  / 
ck_start  /  box_bounds  /  ck_layer  /  ck_bounds  / 
ck_range 

PASSSED  TO:  bld_st  /  ck_start  /  box_bounds  /  ck_wire  / 
ck_bounds  /  do_box  /  ck_box  /  ck_call  / 
ck  round 


COMPOSITION:  N/A 
DATA  TYPE:  integer 

VALUES:  TRUS  or  FALSE 

STORAGE  TYPE:  passed 


NAME:  exbox 
TYPE:  VARIABLE 
DATE:  12  July  1984 

DESCRIPTION:  The  bounds  of  all  the  executable  commands  in 
the  Cl F  file.  It  also  has  an  additional  meaning 
-  it  is  used  to  determine  if  the  bld_file 
procedure  should  be  executed  or  not.  If  it  is 
equal  to  NILL,  then  build_file  is  not  called. 
It  is  set  from  within  parse_cif.  The  pointer  is 
set  to  NILL  if  for  example  a  symbol  number 
cannot  be  read.  This  would  cause  misleading 
errors  and  information  when  the  symbol  table  is 
traced  and  scaled. 

PASSED  FROM:  parse_cif  /  main 

PASSSED  TO:  main  /  bld_file 

COMPOSITION:  N/A 

DATA  TYPE:  struct  box  *exbox 

VALUES:  NILL  or  pointer  value 

STORAGE  TYPE:  passed  and  global  to  parse_cif 


NAME:  exec_file 
TYPE:  VARIABLE 
DATE:  4  July  1984 

DESCRIPTION:  Pointer  to  the  EXECUTABLE  file  structure 
PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 

DATA  TYPE:  pointer  to  file  (structure) 

VALUES:  pointer 

STORAGE  TYPE:  global  to  main 
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NAME:  end 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  "boolean"  variable  which  indicates  (if  TRUE) 
that  the  CIF  End  Command  has  been  found. 

PASSED  FROM:  N/A 

PASSSED  TO:  N/A 

COMPOSITION:  N/A 

DATA  TYPE:  integer 

VALUES:  TRUE  or  FALSE 

STORAGE  TYPE:  global  to  parse_cif 


NAME:  e r_f i 1 e 
TYPE:  VARIABLE 
DATE:  30  June  1984 

DESCRIPTION:  Pointer  to  the  MESSAGE  file  structure. 
PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 

DATA  TYPE:  pointer  to  file  (structure) 

VALUES:  pointer 

STORAGE  TYPE:  global  to  main 


» 


NAME:  errnum 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  Number  passed  to  prt_error  which  signals  that  a 
particular  error  has  occured. 

PASSED  FROM:  bid  file  /  bld_st  /  ck_9  /  ck_box  /  ck_call 
ck_layer  /  ck_wire  /  ck_round  /  do_grid 
ck  start 


PASSSED  TO:  prt_error 
COMPOSITION:  N/A 
DATA  TYPE:  integer 

VALUES:  legal  error  number 

STORAGE  TYPE:  passed 


NAME:  err_flag 
TYPE:  VARIABLE 
DATE:  4  July  1984 

DESCRIPTION:  flag  which  signifies  that  at  least  one  runtime  error 
has  been  encountered.  If  TRUE  then  no  output 
PLOT  file  is  written. 

PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 
DATA  TYPE:  integer 
VALUES:  TRUE  or  FALSE 
STORAGE  TYPE:  global  to  main 
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NAME:  com_string 
TYPE:  VARIABLE 
DATE:  4  July  1984 

DESCRIPTION:  com_string  is  a  C  string  (terminated  with  NULL) 
which  contains  one  CIF  command  like  "DF;"  in 
the  form:  X - ;\0 

PASSED  FROM:  get_cif_com  /  parse_cif  /  bld_st  /  ck_start 
ck_wire  /  ck_9  /  do_9xcom  /  ck_box  /  do_box 
ck_call  /  ck_round 

PASSSED  TO:  parse_cif  /  bld_st  /  wrt_ex_file  /  ck_box 

do_lcom  /  ck_wire  /  ck_start  /  ck_round 
ck_call  /  get_point  /  get_integer  /  ck_9 
ck_layer 

COMPOSITION:  N/A 
DATA  TYPE:  *char 
VALUES:  pointer 
STORAGE  TYPE:  passed 


NAME:  comstore 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  Global  storage  location  for  CIF  commands  and 
other  strings  which  require  a  large  character 
array. 

PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 

DATA  TYPE:  array  of  characters 

VALUES:  comstore [MAXCOMLEN] 

STORAGE  TYPE:  global  to  main 


NAME:  count 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  Integer  count  returned  from  several  different 
types  of  procedures. 

PASSED  FROM:  bld_file  /  set  page  /  bld_st  /  strlen 

PASSSED  TO:  ble_file  /  do_9com  /  plot_page  /  sbrk 

COMPOSITION:  N/A 

DATA  TYPE:  integer 

VALUES:  integer 

STORAGE  TYPE:  passed 


NAME:  color 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  The  PLOT.COM  color  which  corresponds  to  a  CIF 
layer  name. 

PASSED  FROM:  do_box  /  do_wire  /  do_grid  /  do_round 

PASSSED  TO:  put_box  /  pc_color 

COMPOSITION:  N/A 

DATA  TYPE:  integer 

VALUES:  0  -  127 

STORAGE  TYPE:  passed 


NAME:  com_offset 
TYPE:  VARIABLE 
DATE:  7  SEP  84 

DESCRIPTION:  The  number  returned  by  C80  ftell  procedure 
which  is  the  number  of  bytes  to  the  current 
read  pointer  of  a  file.  Get_cif_com  stores  the 
number  here  for  every  DS  command  found.  Bld_st 
uses  this  number  to  fill  in  the  Symbol  Table. 
PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 
DATA  TYPE:  integer 

VALUES:  integer 

STORAGE  TYPE:  global  to  main 


NAME:  com_record 
TYPE:  VARIABLE 
DATE:  7  SEP  84 

DESCRIPTION:  The  number  returned  by  C80  ftellr  which  is  the 
number  of  bytes  to  the  current  read  pointer  of 
a  file  mod  256.  Get_cif_com  stores  the  number 
here  for  every  DS  command  found.  Bld_st  uses 
this  number  to  fill  in  the  Symbol  Table. 

PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 
DATA  TYPE:  integer 

VALUES:  integer 

STORAGE  TYPE:  global  to  main 


NAME:  chan 
TYPE:  VARIABLE 
DATE:  30  June  1984 

DESCRIPTION:  C/80  channel  assigned  to  each  file  as  it  is 
opened.  All  C/80  file  I/O  references  this 
channel  number. 

PASSED  FROM:  file_open  /  get_pattern  /  abort  /  bld_file 

PASSSED  TO:  C80  file  I/O  procedures  and  all  PC  Procedures 

COMPOSITION:  N/A 

DATA  TYPE:  integer 

VALUES:  0-6  for  C/80 

STORAGE  TYPE:  passed 


NAME:  charcount 
TYPE:  VARIABLE 
DATE:  7  SEP  84 

DESCRIPTION:  Number  of  characters  that  can  be  written  to  a 
new  file  on  disk  before  the  disk  is  full. 

PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 
DATA  TYPE:  long 
VALUES :  long 

STORAGE  TYPE:  global  to  main 


NAME:  cif_file 
TYPE:  VARIABLE 
DATE:  30  June  1984 

DESCRIPTION:  Pointer  to  the  CIF  input  file  structure. 
PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 

DATA  TYPE:  pointer  to  file  (structure) 

VALUES:  pointer 

STORAGE  TYPE:  global  to  main 


NAME:  cliprec 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  This  is  the  cliprec  structure  being  passed 
between  procedures. 

PASSED  FROM:  do_9xcom  /  do_box  /  do_wire  /  do_round 

PASSSED  TO:  clip_box  /  put_box 

COMPOSITION:  see  cliprec  structure 

DATA  TYPE:  cliprec  structure 

VALUES:  pointer  to  cliprec  structure 

STORAGE  TYPE:  passed 


NAME:  box  data 
TYPE:  VARIABLE 
DATE:  30  July  1984 

DESCRIPTION:  A  collection  of  values  which  describe  a 
geometric  box  in  CIF  terms. 

PASSED  FROM:  ck_box  /  do_box 
PASSSED  TO:  box_bounds 
COMPOSITION: 

long  length:  length  of  box 

long  width:  width  of  box 

long  cx:  center  of  box  x  value 

long  cy:  center  of  box  y  value 

long  dx:  directional  point  x  value 

long  dy:  directional  point  y  value 

STORAGE  TYPE:  passed 


NAME:  build 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  "boolean"  variable  which  signifies  the  status 
of  the  attempt  to  write  the  PLOT  file.  If  build 
is  TRUE,  then  the  PLOT  file  can  be  built,  else 
a  runtime  error  has  occured,  and  the  PLOT  file 
will  not  be  built. 

PASSED  FROM:  N/A 

PASSSED  TO:  N/A 

COMPOSITION:  N/A 

DATA  TYPE:  integer 

VALUES:  TRUE  or  FALSE 

STORAGE  TYPE:  global  to  parse  cif 


NAME:  cadre 
TYPE:  VARIABLE 
DATE:  23  June  1984 

DESCRIPTION:  signals  to  par_options  that  the  options  being 
parsed  are  from  the  CADRC  file,  necessary 
because  their  are  only  options  (no  filename)  to 
parse  in  the  CADRC  file. 

PASSED  FROM:  int_command  /  yet_cad_opt 

PASSSED  TO:  par_options 

COMPOSITION:  N/A 

DATA  TYPE:  integer 

VALUES:  TRUE  or  FALSE 

STORAGE  TYPE:  passed 


NAME:  a rgc 
TYPE:  VARIABLE 
DATE:  23  June  1984 

DESCRIPTION:  standard  C  parameter  passed  to  main  procedure, 
it  is  the  number  of  words  in  the  command  line. 
PASSED  FROM:  Operating  system  /  int_command  /  get_cad_opt 
PASSSED  TO:  main  /  par_options 
COMPOSITION:  N/A 
DATA  TYPE:  integer 
VALUES:  integer  >  0 
STORAGE  TYPE:  passed 


NAME:  argv 
TYPE:  VARIABLE 
DATE:  23  June  1984 

DESCRIPTION:  standard  C  parameter  passed  to  main  procedure, 
it  is  an  array  of  pointers  which  point  to  the 
strings  in  the  command  line. 

PASSED  FROM:  Operating  system  /  int_command  /  get_cad_opt 
PASSSED  TO:  main  /  par_options 
COMPOSITION:  N/A 

DATA  TYPE:  array  of  pointers  to  characters 
VALUES:  pointer  to  characters,  array  size  =  argc 
STORAGE  TYPE:  passed 


NAME:  box 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  This  is  a  box  structure  which  contains  the 

same  elements  as  in  the  definition  for  the  box 
structure . 

PASSED  FROM:  bld_file  /  ck_bounds  /  trace_table  /  clip_rec 
put_box  /  bld_st  /  trantoplot  /  change_bds 
trans_box 

PASSSED  TO:  bld_file  /  box_bounds  /  trace_table  /  ck_wire 
set_page  /  do_9xcom  /  ck_box  /  ck_wire 
ck_round  /  bld_st  /  do_box 
COMPOSITION:  N/A 
DATA  TYPE:  box  structure 

VALUES:  see  box  structure 

STORAGE  TYPE:  passed 


Control  Variables  (included  at  the  end  of  APPENDIX  D) 


banner 

bantext [BANLENGTH] 
bbox 

color [LAYERMAX] 

comments 

depth 

extension 

grid 

gridspace 

interactive 

layer [LAYERMAX] [5] 

makepage 

notify 

outf ile 

outfname 

outline 

pattern 

pointname 

guiet 

rotate 

scale 

scalenum 

symbolname 

text 

transfer 

trname 

window 

xmin 

xmax 

ymin 

ymax 


VARIABLES 

argc 

last_symbol 

argv 

line  number 

box  data 

mesfTletest 

build 

mode 

cadre 

name 

chan 

outsym 

charcount 

plot  file 

cif  file 

point 

cliprec 

realxmax 

color 

rotmatrix 

com_of f set 

sp 

com  record 

sploc 

com  string 

symnum 

comstore 

syn  ascale,syn  bscale 

count 

table_top 

end 

totbox 

er  file 

totcal 1 

errnum 

totccomment 

err_f lag 

totcommand 

error 

totextension 

exbox 

totlayer 

exec_f ile 

totround 

exlayer 

totsymbol 

flag 

totwire 

fp 

trans 

idenity 

upchar 

inmestab 

NOT  defined  in  the  data  dictionary 

are 

Structure  Chart  parameters  which  are  identified 

as  standard  C  variable  names.  These  have 

the 

characteristics  of  the  type  name  and  are  passed 

over  and  over  between  modules.  They  are: 

float 

char 

long 

int 

TYPE:  FILE 
DATE:  30  May  1984 
NAME:  PLOT 

DESCRIPTION:  This  file  is  the  output  file  of  mcifplot.  It 
contains  elementary  plot  commands  in  the  format 
required  for  PLOT.COM.  The  file  is  named 
filename. VEC,  where  filename  is  the  name  of  the 
input  CIF  file.  Check  plots  are  produced  by 
using  this  file  as  input  to  PLOT.COM. 

LOCATION:  The  same  drive  as  the  input  CIF  file. 

DATA  CHARACTERISTICS:  The  file  is  a  mixture  a  text  and 
binary  data  as  required  by  PLOT.COM 


TYPE:  FILE 

DATE:  30  May  1984 

NAME:  MESSAGE 

DESCRIPTION:  This  file  contains  all  messages  which  are  re¬ 
quired  by  mcifplot.  These  include  all  errors 
and  warnings.  The  program  code  will  only  con¬ 
tain  message  numbers  whi^h  reference  a  particu¬ 
lar  message  in  this  file. 

LOCATION:  The  same  drive  as  for  program  execution. 

DATA  CHARACTERISTICS:  This  file  is  constructed  using  another 
program  and  it  has  the  following  format: 


First  Element  in  File->  Number  of  messages 


integer 


Table  of  Message 

Numbers  and  Offsets  ->  Message  Number 
of  message  from  Message  Offset 
the  start  of  file 


integer 

integer 


Message  strings 


->  First  Message 


char  array 
ends  with  '\0' 


Last  Message 


TYPE:  FILE 

DATE:  26  June  1984 

NAME:  PATTERN 

DESCRIPTION:  File  which  contains  a  new  optional  set  of 
PLOT.COM  colors  and  layer  names  to  be  used 
instead  of  the  default  layer  names  and  colors 
in  mcifplot.  A  maximum  of  15  layers  can  be 
specified.  CIF  layer  names  and  PLOT.COM  colors 
must  be  legal  for  their  respective  environ¬ 
ments,  else  fatal  errors  will  be  produced. 
Default  PLOT.COM  colors  which  closely  corres¬ 
pond  to  the  standard  NMOS  stipple  patterns  of 
cifplot  will  be  built  into  mcifplot. 

LOCATION:  Always  on  drive  specified  in  the  command  line. 

DATA  CHARACTERISTICS: 

The  pattern_file  format  is  signified  by  the  character 
"1"  as  the  first  character  in  the  file  on  the  first 
line.  It  is  followed  by  a  list  of  layer  names  and  a 
corresponding  PLOT.COM  color  with  a  decimal  value  from 
0  to  127.  One  layer  is  specified  per  line  and  lines 
that  begin  with  are  ignored.  For  example: 


1 

;  example  pattern  file  of  format  1 
NP  27 
NC  13 
NB  127 
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TYPE:  FILE 

DATE:  30  May  1984 

NAME:  CADRC 

DESCRIPTION:  The  CADRC  file  contains  additional  options 
which  are  included  in  the  with  the  command  line 
options  as  input  to  VLSI  design  tools.  The 
options  for  a  particular  program  are  on  a  sin¬ 
gle  line  which  begins  with  the  name  of  that 
program.  These  options  are  always  executed.  For 
example: 

mcif plot  -1  bbox  -p  CMOSPAT.STI 

LOCATION:  Always  on  the  same  drive  as  the  program  executed. 

DATA  CHARACTERISTICS:  text  file 


TYPE:  FILE 

DATE:  31  May  1984 

NAME:  CIF 

DESCRIPTION:  The  CIF  file  is  the  main  input  to  mcifplot.  It 
contains  the  CIF  commands  that  are  read  to 
produce  the  output  PLOT  file  for  producing 
check  plots.  The  default  extension  is  .CIF  and 
the  file  should  not  have  an  extension  of  .VEC 
(this  extension  is  used  for  the  output  PLOT 
file) . 

LOCATION:  Default  drive  or  drive  specified  in  command  line. 

DATA  CHARACTERISTICS:  text  file  in  CIF  2.0  syntax. 


TYPE:  FILE 
DATE:  30  May  1984 
NAME:  EXECUTABLE 

DESCRIPTION:  This  a  temporary  file  which  contains  all  CIF 
commands  from  the  input  CIF  files  that  are  not 
in  contained  in  symbol  definitions.  It  will 
always  contain  the  End  command  and  should  con¬ 
tain  at  least  one  call  if  symbols  are  used. 
LOCATION:  Drive  from  which  program  executes. 

DATA  CHARACTERISTICS:  text  file  in  CIF  2.0  format. 


NAME:  line_number 
TYPE:  VARIABLE 
DATE:  4  July  1984 

DESCRIPTION:  The  number  of  Carriage  Returns  found  by  the 
get_cif_com  procedure.  This  is  used  by  the 
prt_error  routine  to  print  errors  containing 
line  numbers. 

PASSED  FROM:  N/A 

PASSSED  TO:  N/A 

COMPOSITION:  N/A 

DATA  TYPE:  long  integer 

VALUES:  long  >  0 

STORAGE  TYPE:  global  to  main 


NAME:  mesfiletest 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  "Boolean"  variable  which  if  set  to  TRUE  if  an 
attempt  has  already  been  made  to  read  in  the 
MESSAGE  file  table. 

PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 
DATA  TYPE:  integer 

VALUES:  TRUE  of  FALSE 

STORAGE  TYPE:  global  to  main 


NAME :  mode 
TYPE:  VARIABLE 
DATE:  26  June  1984 

DESCRIPTION:  The  mode  used  to  open  a  file  which  defines  the 
access  as  read,  write  or  append. 

PASSED  FROM:  par_options  /  open_pfile 

PASSSED  TO:  file_open 

COMPOSITION:  N/A 

DATA  TYPE:  array  of  characters 


VALUES: 

K&R  standard 

C80  equivalent 

read 

•»  « 

n^n 

write 

"w" 

HW" 

append 

"a" 

"u"  (update) 

STORAGE 

TYPE:  passed 

"rb"  (binary  mode) 
"wb" 

"ub" 

T 


NAME:  name 
TYPE:  VARIABLE 
DATE:  26  June  1984 

DESCRIPTION:  file  name  of  file  to  be  operated  on.  Must  be  a 
legal  CPM  file  name 
PASSED  FROM:  par_options  /  abort 

PASSSED  TO:  file_open  /  get_pattern  /  unlink  /  exec 
COMPOSITION:  N/A 

DATA  TYPE:  array  of  characters  terminated  by  NULL 
VALUES:  CPM  file  name 
STORAGE  TYPE:  passed 


NAME:  outsym 
TYPE:  VARIABLE 
DATE:  7  NOV  84 
DESCRIPTION 


PASSED  FROM: 
PASSSED  TO: 
COMPOSITION: 
DATA  TYPE: 
VALUES: 
STORAGE  TYPE: 


A  "boolean"  variable  used  to  indicate  if  a  a 
symbol  is  being  used  (during  parsing  or 
tracing).  TRUE  indicates  out  of  a  symbol. 
get_cif_com  will  not  execute  ftell  and  ftellr 
if  this  is  TRUE. 
bld_st  /  parse_cif 
get_cif_com 
N/A 

integer 
TRUE  or  FALSE 
passed 


NAME:  plot_file 
TYPE:  VARIABLE 
DATE:  7  SEP  84 

DESCRIPTION:  Pointer  to  the  file  structure  for  the  PLOT 
f  ile . 

PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 

DATA  TYPE:  struct  file  *plot_file 

VALUES:  pointer 

STORAGE  TYPE:  global  to  main 
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NAME:  point 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  This  is  the  point  structure  being  passed 
between  procedures. 

PASSED  FROM:  do_9xcom  /  ck_9  /  ck_box  /  ck_round  /  do_box  / 
ck_wire 

PASSSED  TO:  get_point 
COMPOSITION:  see  point  structure 
DATA  TYPE:  point  structure 

VALUES:  pointer  to  point  structure 
STORAGE  TYPE:  passed 


NAME:  realxmax 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  This  is  the  real  maximum  x  bounds  of  the  plot 
in  Cl F  units.  This  is  sometimes  different  from 
xmax  of  the  current  window. 

PASSED  FROM:  set_page  /  report_size 

PASSSED  TO:  bld_file 

COMPOSITION:  N/A 

DATA  TYPE:  long  integer 

VALUES:  long  integer 

STORAGE  TYPE:  passed 


NAME:  rotmatrix 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  3X3  matrix  which  contains  values 
2  dimensional  coordinates  in  a 
rotation . 


PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 
DATA  TYPE:  array[9]  of  float 


VALUES: 

0.0 

1.0 

0.0 

-1.0 

0.0 

0.0 

0.0 

0.0 

1.0 

STORAGE  TYPE: 

gloabal 

to  mcifplot 

to  translate 
90  degrees 
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NAME:  sp 
TYPE:  VARIABLE 
DATE:  26  June  1984 
DESCRIPTION:  array  of  characters  which  forms  a  string  and  is 
terminated  by  NULL 

PASSED  FROM:  generally  used:  par_options  /  abort  /  add_line 

PASSSED  TO:  generally  used:  get_layer,  get_pattern,  latoi,  e 

COMPOSITION:  N/A 

DATA  TYPE:  array  of  characters 

VALUES:  char 

STORAGE  TYPE:  passed 


NAME:  sploc 
TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  The  location  of  a  string  (array  of  characters). 

Allows  called  processes  to  modify  the  location 
of  the  string  pointer. 

PASSED  FROM:  ck_9  /  ck_box  /  ck_round  /  do_box  /  ck_start  / 
ck_call  /  ck_wire  /  do_9xcom  /  ck_layer 
PASSSED  TO:  get_point  /  get_integer  /  skip_sep  /  skip_blank 
COMPOSITION:  N/A 

DATA  TYPE:  pointer  to  pointer  to  character 

VALUES:  pointer 

STORAGE  TYPE:  passed 


NAME:  symnum 
TYPE:  VARIABLE 
DATE:  5  SEP  84 

DESCRIPTION:  Variable  whose  value  represents  a  symbol 
number.  It  contains  the  symbol  number  from  the 
DS  command.  Used  to  modify  the  number  in  a 
symbol  entry. 

PASSED  FROM:  blt_st  /  ck_start 
PASSSED  TO:  ck_start  /  find_sym 
COMPOSITION:  N/A 
DATA  TYPE:  long 

VALUES:  long  >  0 

STORAGE  TYPE:  passed 


NAME:  sym_ascale , sym_bscale 
TYPE:  VARIABLE 
DATE:  5  SEP  84 

DESCRIPTION:  The  two  scaling  ratios  in  a  DS  command.  Found 
by  ck_start  and  used  to  determine  the  true 
bounds  of  a  symbol. 

PASSED  FROM:  bld_st 
PASSED  TO:  ck_start 

COMPOSITION:  N/A 
DATA  TYPE:  long  integer 
VALUES:  legal  CIF-numbers  >  0 
STORAGE  TYPE:  passed 


NAME:  table_top 
TYPE:  VARIABLE 
DATE:  4  July  1984 

DESCRIPTION:  Pointer  to  the  top  of  the  symbol  table. 

Initially  set  to  NIL. 

PASSED  FROM:  N/A 
PASSSED  TO:  N/A 
COMPOSITION:  N/A 

DATA  TYPE:  pointer  to  symbol  structure 
VALUES:  NIL  to  pointer 
STORAGE  TYPE:  global  to  main 


NAME:  totbox,  totcall,  totccomment,  totcommand,  totextension, 
totlayer,  totround,  totsymbol,  totwire 
TYPE:  VARIABLE 
DATE:  4  NOV  1984 

DESCRIPTION:  Storage  locations  for  the  counting  of  CIF 
command  totals.  Only  used  if  notify  is  TRUE. 

PASSED  FROM:  N/A 

PASSSED  TO:  N/A 

COMPOSITION:  N/A 

DATA  TYPE:  long 

VALUES:  long  >=  0 

STORAGE  TYPE:  global  to  main 
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NAME:  trans 


TYPE:  VARIABLE 
DATE:  7  NOV  84 

DESCRIPTION:  Transformation  which  is  passed  between 

procedures.  This  is  a  3  X  3  matrix  (really  an  array 
of  floats  with  a  dimension  of  9)  used  to 
transform  CIF  coordinates. 


PASSED  FROM: 
PASSSED  TO: 
COMPOSITION: 
DATA  TYPE: 
VALUES : 
STORAGE  TYPE 


do_box  /  do_9xcom 

trans_box 

N/A 

pointer  to  array[9]  of  floats 
pointer  (no  restrictions  on  floats) 
passed 


NAME:  upchar 
TYPE:  VARIABLE 
DATE:  26  June  1984 

DESCRIPTION:  upper  case  ASCII  character 

PASSED  FROM:  toupper 

PASSSED  TO:  par_options 

COMPOSITION:  N/A 

DATA  TYPE:  char 

VALUES:  upper  case  ASCII  characters  (A-Z) 
STORAGE  TYPE:  passed 


NAME: Control  Variables  (related  variables  NOT  defined  separately) 
TYPE:  VARIABLE 
DATE:  5  SEP  84 

DESCRIPTION:  Variables  which  control  the  function  and 

operation  the  program.  They  are  modified  by  the  command 
line  and  CADRC  options. 

PASSED  FROM:  N/A 

PASSSED  TO:  N/A 

DATA  TYPE:  see  below 

VALUES:  see  below 

STORAGE  TYPE:  global  to  main 


Name 

Type 

Default  Val 

Range 

banner 

int 

FALSE 

TRUE  or  FALSE 

bantext 

char [BL] 

NULL 

NULL  to  BANLENGTH  (BL) 

bbox 

int 

TRUE 

TRUE  or  FALSE 

color [0 ] 

int 

49 

range  of  colors  for  PLOT 

color [ 1 ] 

int 

50 

range  of  colors  for  PLOT 

color [ 2 ] 

int 

51 

range  of  colors  for  PLOT 

color ( 3 ] 

int 

52 

range  of  colors  for  PLOT 

color [4 ] 

int 

53 

range  of  colors  for  PLOT 

color  [5] 

int 

54 

range  of  colors  for  PLOT 

color (6) 

int 

55 

range  of  colors  for  PLOT 

color [ 7 ) 

int 

56 

range  of  colors  for  PLOT 
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Type 


Range 


Default  Val 


color [8] 

int 

57 

range  of  colors  for  PLOT 

color [ 9 ] 

int 

58 

range  of  colors  for  PLOT 

color  [10] 

int 

59 

range  of  colors  for  PLOT 

color [11] 

int 

60 

range  of  colors  for  PLOT 

color [12] 

int 

61 

range  of  colors  for  PLOT 

color [13] 

int 

62 

range  of  colors  for  PLOT 

color [ 14 ] 

int 

63 

range  of  colors  for  PLOT 

comments 

int 

FALSE 

TRUE  or  FALSE 

depth 

long 

NESTLIMIT 

0  <  long  >  INFINITY 

extension 

int 

TRUE 

TRUE  or  FALSE 

grid 

int 

FALSE 

TRUE  or  FALSE 

gr idspace 

long 

0 

0  <  long  >  INFINITY 

interactive 

int 

TRUE 

TRUE  or  FALSE 

layer [0] 

char [5] 

"ND" 

char[5]  (4  chars  +  '\0') 

layer [ 1 ] 

char [ 5 ] 

"NI" 

char [5] 

layer [2] 

char [5] 

"NP" 

char [5] 

layer [3] 

char [5] 

"NC" 

char [5] 

layer  i 4 ] 

char [ 5 ] 

"NM" 

char [5] 

layer [5] 

char [5] 

"NM" 

char [5] 

layer [6] 

char  [5] 

"NG" 

char  [5] 

layer [7] 

char [ 5 ] 

"CW" 

char [5] 

layer [ 8 ] 

char [5] 

"CD" 

char [5] 

layer [9] 

char  [5] 

"CP" 

char [5] 

layer [10] 

char [ 5 ] 

"CS" 

char [5] 

layer [11] 

char [5] 

"CC" 

char [5] 

layer [12] 

char  [5] 

"CM" 

char [5] 

layer  [13] 

char [ 5 ] 

"CG" 

char [5] 

layer [14] 

char [5] 

"CE 

char [5] 

makepage 

int 

FALSE 

TRUE  or  FALSE 

notify 

int 

TRUE 

TRUE  or  FALSE 

outf i le 

int 

TRUE 

TRUE  or  FALSE 

outf name 

|  char [15] 

NULL 

CPM  file  name 

outline 

int 

|  TRUE 

TRUE  or  FALSE 

pattern 

int 

FALSE 

TRUE  or  FALSE 

patstring 

char [tbd] 

NULL 

as  required  for  pattern 

pointname 

int 

TRUE 

TRUE  or  FALSE 

quiet 

int 

FALSE 

TRUE  or  FALSE 

rotate 

int 

FALSE 

TRUE  or  FALSE 

scale 

int 

FALSE 

TRUE  or  FALSE 

scalenum 

float 

0 

float  >  0 

symbolname 

int 

TRUE 

TRUE  or  FALSE 

text 

int 

TRUE 

TRUE  or  FALSE 

window 

int 

FALSE 

TRUE  or  FALSE 

wxmin 

long 

INFINITY 

long 

wxmax 

long 

-INFINITY 

long 

wymin 

long 

INFINITY 

long 

wymax 

long 

-INFINITY 

long 

APPENDIX  E:  C  /  PC  PROCEDURES 


DATE:  17  OCT  84  • 

VERSION:  1.0  • 

TITLE:  newlib  -  New  library  of  C  functions  • 

OWNER:  Kirk  S.  Horton  • 

OPERATING  SYSTEM:  CPM  2.2  • 

LANGUAGE:  Software  Toolworks  C/SO  • 

USE:  linked  with  application  programs  • 

CONTENTS:  « 

get_space  -  gets  free  disk  space  in  K  bytes  • 

latoi  -  converts  ascii  string  to  long  integer  * 

litoa  -  converts  long  integer  to  ascii  string  « 

puts  -  puts  string  on  standard  output  • 

FUNCTION:  General  C  functions,  either  new  or  modified  C/80  • 

functions.  • 

. . . . . . . . 


. . * . 

•  DATE:  18  SEP  84  • 

•  VERSION:  1.0 

•  NAME:  get.space  • 

•  FUNCTION:  Gets  the  number  of  IK  blocks  left  on  disk.  » 

•  INPUTS:  none 

•  OUTPUTS:  blocks  • 

«  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  reads  disk  directory  info  from  disk  • 

•  FILES  WRITTEN: 

•  PROCEDURES  CALLED:  uses  SYSLIB  Disk  Utilities  • 

•  AUTHOR:  Kirk  S.  Horton  * 

•  HISTORY:  N/A 

. . . . . . . . 

get_space( > 

{ 

#asm 

;  THIS  PROCEDURE  USES  THREE  MODIFIED  SYSLIB  FUNCTIONS. 

;  THE  BDOS  VARIABLE  IS  CHANGED  TO  BDOSLO  SO  AS  NOT  TO  CONFLICT 
;  WITH  THE  C/80  FUNCTION  bdos  AND  IS  ADDED  TO  SDIRBF.MAC. 

;  THE  REGISTER  SAVES  ARE  DELETED  AT  THE  START  AND  END  OF  DPARAMS 
;  AND  DFREE  (NOT  REQUIRED  WITH  C/80).  REFERENCES  TO  CPM1.4  ARE 
;  DELETED  FROM  DPARAPMS  AND  THE  FINAL  ANSWER  IS  NOT  MOVED  TO  DE 

j  BUT  LEFT  IN  HL  WHERE  C/80  EXPECTS  IT. 

• 

* 

:  SYSLIB  Module  Name:  SDIRn 
;  Author:  Richard  Conn 
;  Part  of  SYSLIB3  SDIR  Series 
;  SYSLIB  Version  Number:  3.0 
;  Module  Version  Number:  1.4 
:  Module  Entry  Points: 

;  BLKSHF  BLKMSK  BLKMAX  DIRMAX  SELFLG  ORDER  DIRBUF 


r 


;  Module  External  References: 

:• 

;•  BUFFERS 


BDOSLO  EQU  5 

BLKSHF: : 

DB  0 

BLKMSK: : 

DB  0 

BLKHAX: : 

DW  0 

dirmax: : 

DW  0 

SELFLG : : 

DB  0 

order:  : 

DW  0 

DIRBUF : : 

DW  0 


BLOCK  SHIFT  FACTOR 
BLOCK  MASK 

MAX  NUMBER  OF  BLOCKS 
MAX  NUMBER  OF  DIRECTORY  ENTRIES 
FILE  ATTRIBUTE  FLAG 
POINTER  TO  ORDER  TABLE 
POINTER  TO  DIRECTORY 


SYSLIB  Nodule  Name:  SDIR02 
Author:  Richard  Conn 
Part  of  SYSLIB3  SDIR  Series 
SYSLIB  Version  Nueber:  3.0 
Module  Version  Nueber:  1.4 
Module  Entry  Points: 

DPARAHS 

Module  External  References: 


THIS  ROUTINE  EXTRACTS  DISK  PARAMETER  INFORMATON  FROM  THE  DPB  AND 
STORES  THIS  INFORMATION  IN: 

BLKSHF  <--  BLOCK  SHIFT  FACTOR  <1  BYTE) 

BLKMSK  <--  BLOCK  MASK  <1  BYTE) 

EXTENT  <--  EXTENT  MASK  <1  BYTE)  CNOT  ANY  MORE) 

BLKMAX  <--  MAX  NUMBER  OF  BLOCKS  ON  DISK  (2  BYTES) 

DIRMAX  <--  MAX  NUMBER  OF  DIRECTORY  ENTRIES  <2  BYTES) 


DPARAHS: : 


VERSION  2.x 

OR  MP/M 

MVI 

C,  31 

• 

0 

2.x  OR  MP/M. . .REQUEST 

CALL 

BDOSLO 

INX 

H 

INX 

H 

MOV 

A,M 

• 

* 

GET  BLOCK  SHIFT 

STA 

BLKSHF 

• 

» 

BLOCK  SHIFT  FACTOR 

INX 

H 

• 

f 

GET  BLOCK  MASK 

MOV 

A,  M 

STA 

BLKMSK 

• 

0 

BLOCK  MASK 

INX 

H 

INX 

H 

MOV 

E.M 

• 

0 

GET  MAX  BLOCK  NUMBER 

E-2 


MOV 

D.M 

XCHG 

INX 

H 

• 

9 

ADD  1  FOR  MAX  NUMBER  OF  BLOCKS 

SHLD 

BLKMAX 

• 

9 

MAXIMUM  NUMBER  OF  BLOCKS 

XCHG 

INX 

H 

MOV 

E.M 

• 

9 

GET  DIRECTORY  SIZE 

INX 

H 

MOV 

D.M 

XCHG 

INX 

H 

• 

9 

ADD  1  FOR  NUMBER  OF  ENTRIES 

SHLD 

DIRMAX 

9 

MAXIMUM  NUMBER  OF  DIRECTORY  ENTRIES 

•  ALL  PARAMETERS  EXTRACTED 


SYSLIB  Module  Nase:  SDIR03 
Author:  Richard  Conn 
Part  of  SYSLIB3  SDIR  Serlea 
SYSLIB  Version  Nueber:  3.0 
Module  Version  Nusber:  1.4 
Module  Entry  Points: 

DFREE 

Module  External  References: 


COMPUTE  AMOUNT  OF  FREE  SPACE  LEFT  ON  DISK 

ON  EXIT.  HL=AM0UNT  OF  FREE  SPACE  ON  DISK  IN  K 

THE  DPARAMS  ROUTINE  MUST  BE  CALLED  BEFORE  THIS  ROUTINE  IS  USED 


DFREE: 


BC 


FREE1 : 


FREE2: 


MVI 

C,27 

• 

9 

GET  ADDRESS  OF  ALLOCATION  VECTOR 

CALL 

BDOSLO 

XCHG 

LHLD 

BLKMAX 

e 

9 

GET  LENGTH 

OF  ALLOCATION  VECTOR 

LX  I 

B.O 

e 

9 

INIT  BLOCK 

COUNT  TO  0 

IS  ACCUMULATOR 

FOR 

SPACE 

PUSH 

D 

• 

9 

SAVE  ALLOC 

ADDRESS 

LDAX 

D 

• 

• 

GET  BIT  PATTERN  OF  ALLOCATION  BYTE 

MVI 

E,8 

• 

9 

SET  TO  PROCESS  8  BLOCKS 

RAL 

• 

9 

ROTATE  ALLOCATED  BLOCK  BIT  INTO  CARRY  FLAG 

JC 

FREE3 

a 

9 

IF  SET  (BIT 

=1),  BLOCK  IS  ALLOCATED 

INX 

B 

• 

9 

IF  NOT  SET, 

BLOCK  IS  NOT  ALLOCATED,  SO  INCREMENT 

• 

9 

FREE  BLOCK  COUNT 

FREE3: 


MOV 


D.A 


SAVE  REMAINING  ALLOCATION  BITS  IN  D 


OCX 

H 

COUNT  DOWN  NUMBER  OF  BLOCKS  ON  DISK 

MOV 

A,  L 

ORA 

H 

JZ 

FREE4 

DONE  IF  NO  MORE  BLOCKS  LEFT 

MOV 

A,D 

A=CURRENT  ALLOCATION  BIT  PATTERN 

DCR 

E 

HAVE  ALL  8  BITS  BEEN  EXAMINED? 

JNZ 

FREE2 

CONTINUE  IF  NOT 

POP 

D 

GET  POINTER  TO  ALLOCATION  VECTOR 

INX 

D 

POINT  TO  NEXT  ALLOCATION  BYTE 

JMP 

FREE1 

CONTINUE  BY  PROCESSING  NEXT  ALLOCATION  BYTE 

;  • 

;•  BC 

*  TOTAL 

AMOUNT  OF 

FREE  SPACE  IN  TERMS  OF  BLOCKS 

;  • 

FREE4: 

POP 

D 

CLEAR  DE  FROM  STACK 

MOV 

L,C 

HL=BC*NUMBER  OF  FREE  BLOCKS 

MOV 

H,B 

LDA 

BLKSHF 

GET  BLOCK  SHIFT  FACTOR 

SUI 

3 

CONVERT  NUMBER  OF  BLOCKS  TO  K 

JZ 

FREE6 

DONE  IF  SINGLE  DENSITY  (IK  PER  BLOCK) 

9 

;•  WE  ARE  AT  A  MORE  ADVANCED  DENSITY  LEVEL;  MULTIPLY  THE  NUMBER  OF  BLOCKS 
;•  BY  THE  SI2E  OF  A  BLOCK  IN  K 

;• 

FREES; 

DAD  H  ;  2,  4.  8,  16,  ETC  K/BLK,  SO  BLOCK  SHIFT  FACTOR 

DCR  A  ;  IS  A  POWER-OF-TWO  MULTIPLE 

JNZ  FREES 


9 

;•  AT  THIS  POINT,  HL=AMOUNT  OF  FREE  SPACE  ON  DISK  IN  K 

;• 

FREE6; 

NOP 

Nendasa 

) 


DATE:  26  JUL  84 
VERSION:  1.0 
NAME:  latol 

FUNCTION:  Converts  ascii  string  to  long  Integer.  Returns  long. 

Modified  C/80  function. 

INPUTS:  «char 
OUTPUTS:  long  integer 
GLOBAL  VARIABLES  USED:  none 
GLOBAL  VARIABLES  CHANGED:  none 
FILES  READ:  none 
FILES  WRITTEN:  none 
PROCEDURES  CALLED:  none 
CALLING  PROCEDURES:  as  required 
AUTHOR:  Kirk  S.  Horton 
HISTORY:  N/A 


long  latol(s) 
char  «s; 

( 

static  int  sign; 

static  long  n; 

sign  =  1; 
n  =  0; 
switch  <»s) 

( 

case  sign  *  -1; 

case  **8: 

) 

while  (»s  >*  '0'  &&  "s  <*  '9')  n  =  (long)  10  •  n  ♦  »s+* 
return<  (long)  sign  •  n); 


•  DATE:  17  OCT  84 

•  VERSION:  1.0 

•  NAME:  litoa 

•  FUNCTION:  Converts  long  integer  to  ascii  string.  Returns  the 

•  the  ascii  string.  The  only  change  made  to  the  corrected 

•  C/80  function  itoa  is  the  change  of  the  input  type  and 

•  internal  integers  to  long  integer. 

•  INPUTS:  long  integer,  string  pointer 

»  OUTPUTS:  ascii  string  (in  location  of  string  pointer) 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  PROCEDURES  CALLED:  none 

•  AUTHOR:  Kirk  S.  Horton 

•  history:  n/a 

.  . . •«•••• . . . . . . 
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char  »litoa(n,  a) 
char  a  □  ; 
long  n; 

{ 

static  int  c; 
static  long  k; 
atatic  char  *p,  »q; 

if  ((k  =  n)  <  OL)  n  =  -n; 
q  =  p  =  a; 
do  ( 

*p*»  *  n  X  10L  ♦  '0'  ; 

)  while  <<n  /=  10L)  >  OL) ; 
if  (k  <  OL)  »p~  =  '  ; 

•P  =  0; 

while  (q  <  --p)  ( 

c  =  «q:  »q*»  =  »p;  «p  =  c;  ) 
return  (a); 

) 

. . . . . . 

•  DATE:  1  OCT  84 

•  VERSION:  1.0 

•  NAME:  puts 

•  FUNCTION:  Writes  string  to  standard  output.  Used  putchar 

•  rather  than  the  asaller  (&  faster?)  putc  to  allow 

•  redirected  output.  Fros  K&R. 

•  INPUTS:  »char  (string  terminated  by  '\0'> 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  none 

•  PROCEDURES  CALLED:  putchar  -  outputs  one  char  to  standard  out. 

•  CALLING  PROCEDURES:  as  required 

•  AUTHOR:  Kirk  S.  Horton 

•  HISTORY:  N/A 

.  . . . . . . . . . 

puta(s) 
char  »s; 

( 

while  <»s)  putchar(»s**) ; 

) 


•  DATE:  30  SEP  84 

•  VERSION:  1.0  • 

•  • 

•  TITLE:  pc_lib.c  • 

•  OWNER:  Kirk  S.  Horton  • 

•  OPERATING  SYSTEM:  CPM  2.2  • 

•  LANGUAGE:  Software  Toolworka  C/80  • 

•  USE:  Coapile  and  aaseable  to  fora  relocatable  aodule.  Can  be  • 

•  linked  with  applications  when  plot  coaaanda  are  required* 

•  contents: 

•  all  pc_XXXX  functions  write  PLOT. 33  coaaanda  to  the  file* 

•  opened  for  binary  writing  on  channel  chan.  See  PLOT.##  • 

»  docuaentation  for  additional  info  on  the  foraat  of  PLOT  » 

•  coaaanda.  Each  plot  coaaand  calls  teat_apace  to  insure  • 

•  there  is  rooa  for  the  coaaand  before  writing, and  putc  to* 

•  write  the  required  characters  to  the  file.  Teat_apace  • 

»  should  gracefully  close  the  output  VECTOR  file  if  enough* 

•  space  is  not  available.  • 

•  IMPORTANT:  test_apace  aust  be  defined  external  when  • 

•  using  these  procedures  • 

pc_color (color , chan)  -  writes  Color  coaaand  to  change  color 
of  plot 

pc_draw(xl ,yl ,x2,y2,chan)  -  writes  Draw  coaaand  to  draw  line 
from  xl,yl  to  x2,y2. 

pc_erase(chan)  -  writes  Erase  coaaand  to  erase  aeaory  to  aost 
recently  defined  color. 

pc_fill(xl,yl,x2,y2,yf ,chan)  -  writes  Fill  coaaand  to  fill 

froa  the  line  defined  by  xl,yl  and  x2,y2  down  to  the 
horizontal  line  defined  by  yf  with  the  aost  recently 
defined  color. 

pc_increaent(xl,yl,chan)  -  writes  Increaent  coaaand  to  draw 
line  froa  the  aost  recent  point  plotted  to  xl,yl. 

pc_output(chan)  -  writes  Output  coaaand  to  force  output  of  plot 

pc_point(xl,yl,chan)  -  writes  Point  coaaand  to  draw  point  at 
xl,yl. 

pc_quit(chan)  -  writes  Quit  coaaand  to  stop  execution  of 
PLOT33.COM. 

pc_strlng(xl,yl, string, chan)  -  writes  String  coaaand  to 
write  string  at  xl,yl  on  plot. 

pc_text(atring,chan)  -  writes  Text  coaaand  to  laaediately 
output  string  to  the  printer. 

pc_upload(n, pointer, chan)  -  writes  Upload  coaaand  to  change 
color  values  as  defined  by  n  and  the  values  in  the 
array  pointed  to  by  pointer. 

•  Two  pc  functions  also  call  the  standard  C  functions  strlen.  • 

»  • 

•  FUNCTION:  Writes  plot  coaaanda  to  VECTOR  file. 

•  . * . . 

/•  DEFINES  •/ 

•define  PLOTMAX  32767 
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itoa(i,s)  -  integer  to  ASCII  convert 

converts  the  integer  i  into  the  ASCII  string  in  the 
char  array  s[7];  returns  s. 
putc(c,chan)  -  put  character  to  file 

writes  the  character  c  on  the  file  or  device  opened  for 
writing  or  update  on  channel  chan. 
putchar(c)  -  put  character 

writes  the  character  c  on  the  standard  output  and 
returns  c. 

sbrk(n)  -  allocates  memory  block 

Allocates  a  block  of  n  bytes  of  memory,  returning 
the  address  of  the  first  byte,  or  -1  if  that  much 
memory  is  not  available. 
strcat(s,t)  -  string  cat 

Copies  string  t  onto  the  end  of  string  s. 
strcpy(s,t)  -  string  copy 

Copies  string  t  into  memory  starting  at  the  pointer 
s . 

strcmp(s,t)  -  string  compare 

Compares  string  s  to  string  t,  returning  -1,  0  or  1 
if  s  is  less  than,  equal  to,  or  greater  than  t. 
Inequality  is  computed  by  numerical  ASCII  value.  In 
particular,  strings  containing  only  upper  or  only 
lower  case  letters  are  compared  in  alphabetical 
order,  but  all  upper  case  letters  are  less  than  any 
lower  case  letters. 
strlen(s)  -  string  length 

Returns  the  number  of  bytes  in  the  string  s,  exclu¬ 
sive  of  the  terminating  0  byte.  Note  that  it  takes 
strlen(s)  +  1  bytes  to  hold  string  s. 
toupper(c)  -  to  upper  case 

Returns  the  character  c,  but  if  c  is  an  lower  case 
letter  (a  -  z)  it  is  converted  to  the  corresponding 
upper  case  letter. 
unlink(s)  -  unlink  file 

Deletes  the  file  s,  if  it  exists. 
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APPENDIX  F.  C80  Procedures 


atof{s)  -  ASCII  string  to  float  conversion  (from  MATHPAK) 

s  is  a  string  containing  the  representation  of  a 
floating  point  constant,  atof  returns  the  float 
value  of  the  constant, 
exec (prog, args)  -  execute  another  program 

chain  to  another  program,  prog  is  a  string  con¬ 
taining  the  name  of  a  program,  args  is  a  string 
containing  any  arguments. 
fclose(chan)  -  file  close 

closes  the  file  or  device  open  on  channel  chan.  An 
end  of  file  (~Z)  is  written  to  the  current  position 
unless  the  file  was  opened  in  the  binary  mode, 
f open (f name , mode)  -  file  open 

opens  the  named  file  and  returns  the  channel  number 
of  the  file.  Fname  is  a  string  constant  or  pointer 
to  a  string.  Mode  may  be  r,  w,  u,  rb,  wb,  ub.  Fopen 
returns  0  if  the  file  cannot  be  opened. 
ftell(chan)  -  tell  file  pointer 

returns  the  current  read/write  pointer  for  the  file 
open  on  channel  chan.  This  pointer  is  the  number  of 
bytes  before  the  current  position  in  the  file.  Re¬ 
turns  mod  256  if  the  number  is  greater  than  65K. 
ftellr(chan)  -  tell  file  record 

returns  the  current  read/write  pointer  for  the  file 
open  on  channel  chan,  divided  by  256. 
ftoa (fmt, digits, f, where)  -  float  to  ASCII  convert  (MATHPAC) 

converts  the  floating  point  number  f  to  a  string  in 
the  character  array  where,  fmt  is  for  expontential 
or  floating  conversion,  digits  is  the  number  of 
digits  after  the  decimal  place. 
getc(chan)  -  get  character  from  file 

returns  the  next  character  from  the  file  or  device 
open  for  reading  on  channel  chan.  Returns  -1  to 
signify  end  of  file. 
isalpha(c)  -  is  character  alphabetic? 

returns  1  if  c  is  an  ASCII  alphabetic  character  (A- 
Z  or  a-z) ,  or  otherwise  0. 
index(s,t)  -  is  s  substring  of  t? 

checks  to  see  if  s  is  a  substring  of  t.  If  so, 
returns  starting  position  in  s  of  t;  if  not  returns 
-1. 

isdigit(c)  -  is  character  digit? 

returns  1  if  c  is  an  ASCII  digit  (0-9),  otherwise  0. 
isupper(c)  -  is  cnaracter  upper  case? 

returns  1  if  c  is  an  upper  case  alpahbetic  character 
(A-Z),  otherwise  0. 
isspace(c)  -  is  character  space? 

returns  1  if  c  is  an  space,  tab,  or  newline,  other¬ 
wise  0. 
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. . 

•  DATE:  11  SEP  1984 

•  VERSION:  1.0 

•  NAME:  pc_text 

•  FUNCTION:  Writes  PLOT  text  cossand  to  input  channel. 

•  STRUCTURED  ENGLISH: 

•  INPUTS:  chan,  text 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  file  on  channel  chan 

•  MODULES  CALLED:  test_space  /  putc  /  strlen 

•  HISTORY:  N/A 


pc  text ( text , chan ) 
int  chan; 

char  'text; 

( 

teat_apace< ( 1  ♦  (strlen (text) )  ♦  l),chan); 
putc( 'T' .chan) ; 

while  (»text)  putc( »text+* ,chan) ; 
putc< ' \0' , chan) ; 


. . . . . . . . 

•  DATE:  11  SEP  1984 

•  VERSION:  1.0 

•  NAME:  pc_upload 

•  FUNCTION:  Writes  PLOT  upload  cossand  to  input  channel 

•  INPUTS:  n,  point,  chan 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  file  on  channel  chan 

•  MODULES  CALLED:  test.apace  /  putc 

•  HISTORY:  N/A 


pc_upload(n, point, chan) 
int  n,chan; 

char  »point; 

( 

int  1 ; 

char  «pt; 

test_space< (3*n) ,chan> ; 
putc< ' U' , chan) ; 
pt  *  &n; 
putc(*pt,chan) ; 
putc( • (pt*l ) ,chan) ; 

for(i*l;  i<*n;  **i)  putc< <»pojnt»») .chan) ; 


pc_quit(chan) 
lnt  chan; 

( 

teat_apacc ( 1 , chan ) ; 
putc( 'Q' ,chan) ; 


} 

/•«••• . * . 

•  DATE:  11  SEP  1984 

•  VERSION:  1.0  * 

•  NAME:  pc_atring  • 

•  FUNCTION:  Writes  PLOT  string  cossand  to  input  channel.  • 

•  STRUCTURED  ENGLISH:  • 

•  INPUTS:  chan,  xl,  yl,  string  • 

•  OUTPUTS:  none  • 

•  GLOBAL  VARIABLES  USED:  none  • 

•  GLOBAL  VARIABLES  CHANGED:  none  • 

•  FILES  READ:  none  • 

•  FILES  WRITTEN:  file  on  channel  chan  • 

•  NODULES  CALLED:  teat_apace  /  putc  /  strlen  • 

•  HISTORY:  N/A 

. . 

pc_str ing ( xl , y 1 , string , chan ) 
int  chan; 

float  xl,yl; 
char  •string; 

( 

int  i,  outintC21; 

char  «pt; 

test_space< (5  ♦  (strlen (string) )  ♦  l),chan); 
putc ( 'S' , chan) ; 

outintCO)  =  (int)  (PLOTNAX  •  xl); 
outinttll  *  (int)  (PLOTNAX  •  yl); 
pt  -  AoutintEOJ; 

for  (i=0;  i<*3;  **i)  putc( * (pt*i ) ,chan) ; 
while  ("string)  putc( "string** , chan) ; 
putc( ' \015' , chan) ; 

) 
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pc_output(chan) 
int  chan; 

( 

test_apace ( 1 , chan ) ; 
putc( 'O' , chan) ; 

) 


•  DATE*.  11  SEP  1984 

•  VERSION:  1.0 

•  NAME:  pc_point 

•  FUNCTION:  Writes  PLOT  point  coaaand  to  input  channel. 

•  INPUTS:  chan,  xl,  yl, 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 
■  FILES  READ:  none 

•  FILES  WRITTEN:  file  on  channel  chan 

•  MODULES  CALLED:  test_space  /  putc 

•  HISTORY:  N/A 


pc_point(xl,yl,chan> 
int  chan; 
float  xl.yl; 

{ 

int  i,  outintC21; 

char  «pt; 

teat_apace(5,chan) ; 
putc( 'P' .chan) ; 

outinttO]  =  (int)  (PLOTMAX  *  xl); 
outinttl]  *  (int)  (PLOTMAX  •  yl); 
pt  =  AoutintCO); 

for  (1=0;  i<=3;  ♦  ♦!)  putc(*(pt*i) , chan) ; 

) 


«  DATE:  11  SEP  1984 

•  VERSION:  1.0 
»  NAME:  pc_quit 

•  FUNCTION:  Writes  PLOT  quit  cossand  to  input  channel. 

•  STRUCTURED  ENGLISH: 

•  INPUTS:  chan 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  file  on  channel  chan 

•  MODULES  CALLED:  test_space  /  putc 

•  HISTORY:  N/A 


outint £33  =  (int)  (PLOTMAX  •  y2); 
outint C4)  *  (int)  (PLOTMAX  •  yf); 
pt  =  fcoutintCO); 

for  (i*0;  1<=9;  ♦♦!)  putc(»(pt*i) ,chan) ; 

) 

. . . . . . 

•  DATE:  11  SEP  1964 

•  VERSION:  1.0 

•  NAME:  pc_increment 

•  FUNCTION:  Writes  PLOT  increment  command  to  input  channel. 

•  INPUTS:  chan,  xl,  yl, 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  file  on  channel  chan 

•  MODULES  CALLED:  test_apace  /  putc 

•  HISTORY:  N/A 


pc_  incremental  ,yl  ,chan) 
int  chan; 
float  xl,yl; 

( 

int  i,  outint (2); 

char  »pt; 

test_apace(5,chan) ; 
putc('I' ,chan) ; 

outint (0)  =  (int)  (PLOTMAX  *  xl); 
outintm  =  (int)  (PLOTMAX  *  yl); 
pt  =  &outint (0); 

for  (i*0;  i<=3;  **i)  putc( * (pt*l ) ,chan) ; 

) 


«  DATE:  11  SEP  1984 

•  VERSION:  1.0 

•  NAME:  pc_output 

•  FUNCTION:  Writea  PLOT  output  command  to  input  channel. 

•  INPUTS:  chan 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  file  on  channel  chan 

•  MODULES  CALLED:  teat_apace  /  putc 

•  HISTORY:  N/A 


outint(3]  =  (int)  (PLOTNAX  •  y2); 
pt  *  &outint(01; 

for  (i«0;  i<=7;  ♦♦!)  putc( »(pt*i ) ,chan) ; 


. . • . . . . . . 

«  DATE:  11  SEP  1984 

•  VERSION:  1.0 

•  NAME:  pc_erase 

•  FUNCTION:  Writes  PLOT  erase  command  to  input  channel. 

«  INPUTS:  chan 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  file  on  channel  chan 

•  NODULES  CALLED:  test_space  /  putc 

•  HISTORY:  N/A 

. «•••« . . . . . •  •/ 

pc_erase(chan> 
int  chan; 

( 

testspace ( 1 , chan ) ; 
putc( 'E' ,chan) ; 


. . * . . . . . . . . . 

•  DATE:  11  SEP  1984 

•  VERSION:  1.0 

•  NAME:  pc_fill 

•  FUNCTION:  Writes  PLOT  fill  command  to  input  channel. 

•  INPUTS:  chan,  xl,  yl,  x2,  y2,  yf 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  file  on  channel  chan 

•  NODULES  CALLED:  teat_space  /  putc 

•  HISTORY:  N/A 

. . . . . . . . 

pc_f ill (xl.yl ,x2,y2,yf , chan) 

int  chan; 

float  xl,x2,yl,y2,yf ; 

( 

int  i,  outint(51; 

char  *pt; 

test_space(ll,chan) ; 
putc( 'F' , chan) ; 

outintCO]  *  (int)  (PLOTNAX  •  xl); 
outintm  =  (int)  (PLOTNAX  •  yl); 
outint (2)  =  (int)  (PLOTNAX  •  x2>; 


. . . . 

•  DATE:  11  SEP  1934 

•  VERSION:  1.0 

•  NAME:  pc_color 

•  FUNCTION:  Writes  PLOT  color  cossand  to  input  channel. 

•  STRUCTURED  ENGLISH: 

•  INPUTS:  chan,  color 

•  OUTPUTS:  none 

»  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  file  on  channel  chan 
«  NODULES  CALLED:  teat_space  /  putc 

•  HISTORY:  N/A 

. . . . 

pc_color (color , chan) 
int  color, chan; 

( 

char  c; 

teat_apace(2,chan) ; 
putc( 'C' ,chan) ; 
c  *  color; 
putc(c,chan) : 


•  DATE:  11  SEP  1934 

•  VERSION:  1.0 

•  NAME:  pc_draw 

•  FUNCTION:  Writes  PLOT  draw  cossand  to  input  channel. 

•  INPUTS:  chan,  xl,  yl,  x2,  y2, 

•  OUTPUTS:  none 

•  GLOBAL  VARIABLES  USED:  none 

•  GLOBAL  VARIABLES  CHANGED:  none 

•  FILES  READ:  none 

•  FILES  WRITTEN:  file  on  channel  chan 

•  MODULES  CALLED:  teat_apace  /  putc 

•  HISTORY:  N/A 

.  . . . . . . . 

pc_draw(xl ,yl,x2,y2,chan) 

int  chan; 

float  xl,x2,yl,y2; 

( 

int  i ,  outint  (41 ; 

char  »pt; 

test_apac«<9,chan) ; 
putc< 'D' .chan/ * 

outint(O)  *  (int)  (PLOTHAX  •  xl); 
outint(l)  *  (int)  (PLOTHAX  •  yl); 
outint (21  =  < int )  (PLOTHAX  •  x2); 
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mcif plot,  a  microcomputer-based  program  which  prints 
check  plots  of  integrated  circuits  on  a  dot-matrix  printer, 
was  designed,  implemented,  and  tested.  The  SADT  Design, 
Detailed  Design,  Data  Dictionary,  algorithms.  Structure 
Charts,  and  program  code  are  presented,  mcif plot  interprets 
a  geometric  description  file  written  in  Caltech  Intermediate 
Form  (CIF)  and  produces  an  output  file  which  can  be  printed 
using  the  public  domain  program  PLOT.COM.  mcif plot  is  writ¬ 
ten  in  C  for  the  CPM  operating  system  and  closely  matches 
the  function  of  the  Unix  based  VLSI  design  tool  cif plot. 

mcifplot  interprets  all  standard  CIF  2.0  commands  with 
the  exception  of  Poly  Commands,  Delete  Definition  Commands, 
and  commands  which  define  geometric  elements  in  non-Manhat¬ 
tan  directions.  Program  execution  is  primarily  limited  by 
disk  access  delays  and  depends  greatly  on  the  format  and 
structure  of  the  input  CIF  file. 
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